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ABSTRACT 


Software engineers in general, and the Department of Defense in particular, are 
looking for good software metrics to aid in software development. Maurice Halstead 
developed the theory of Software Science which includes the relation between program 
complexity and program length. Halstead’s length metric deals with the properties of 
feeeeroontiim that can be measured. either directly or indirectly. statically or 
dynamucallv, and with the relationships among these properties. A svsten: has been 
developed which implements Halstead’s length metric. This system, which is written in 
Ada, takes Ada programs as input, and outputs the length metric complexity analysis. 


Finallv, recommendations for future work in this area are made. 
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I. INTRODUCTION AND BACKGROUND 


A. CONCERNS 

With computer software programs getting larger and larger all the time, the 
search is on for accurate and dependable aids for the developer to increase the 
productivity and efficiency of software engineering efforts. New tools and new 
methodologies are being sought in the effort to alleviate the “software crisis”. This 
Grisis, Stated specifically, is that software is being delivered late. over budget. 
specifications are not being met, modifications are difficult and expensive. unresponsive 
to user needs, and unreliable. 

Recently, it was reported that software costs are growing at the rate of 15° per 
vear while productivity is increasing at less than 3% [Ref. I: p.[5]. Barry Boehm. a 
leading computer expert, asserted more than 10 years ago that. in the mulitarv 
application area, the cost of software was expected to reach about 80° of the total 
computer system budget bv the vear 1985 [Ref. 2: p.1]. His assertion now seems valid 
{Ref. 3]. Furthermore it appears that up to 60°% of the total software budget for all 
Organizations using computers is being devoted to maintenance [{Ref. 2: p.2]. The 
Office of Naval Research and other Defense Research agencies are aware of these 
increasing costs. They are also accutely aware of the lack of quantitative measurement 
techniques Which are desperately needed for assessing the quality and reliability of 
software as well as for the prediction and measurement of software production 
{Ref. 1: p.14]. Further evidence of this universal concern comes from a General 
Accounting Office report of June 78 on managing weapons systems. It stated that there 
exists no Department of Defense performance criteria to measure software quality and 
to establish a basis for its acceptance or rejection [Ref. 1: p.15]. The Secretary of 


Defense’s response was brief and candid, 


Myewconcur. We regret and underscore the importance of the need. The 
per erement of Defense will quickly embrace such measures when they are 
available. 


The current Office of Naval Research (ONR) initiative to focus on software 


measurement is a result of the need for such metrics and the high level of interest that 


the Secretary of Defense brings to bear. The ONR initiatives, stated specifically, are: 
developing indices of merit that can support quantitative comparisons and evaluations; 
designing a philosophical framework for understanding and defining software 
measurement; and focusing the attention of the scientific community on computer 


Softwares| cl. 1: ale 


B. AVAILABLE METRICS 

Software metrics are often classified as either process metrics or product metrics. 
and are applied to either the development process or the software product being 
developed [Ref. 2: p.19]. Process metrics include resource metrics, such asad 
experience of programmers, and the cost of development and maintenance. Examples 
of metrics for the levels of personnel experience are the number of years that a team 
has been using a progranimung language, the number of years that a progranimer has 
been with the organization. the number of years that a programmer has been 
associated with a programming team, and the number of vears of experience 
constructing similiar software [Ref. 2: p.19]. Other factors considered tn process metric 
measurement are development techniques (the use of top-down or bottom-up 
development techniques, and structured programming), supervisory techniques (such as 
tvpe of team organization and number of communication paths), and resources 
(human, computer, time schedule, and so on) [Ref. 2: p.20]. Product metrics, on the 
other hand, are a measure of the software product. Product metrics include the size of 
the product (such as number of lines of code or some count of tokens in the progran)), 
the logic structure complexity (such as flow of control, depth of nesting, or recursion), 
the data structure complexity (such as the number of variables used), the function 
(such as type of software: business, scientific, systems, and so on), and combinations of 
CESS INCE ee eae 

The emphasis in this thesis will be on product metrics to the total exclusion of 
process metric issues. We are interested in analyzing the static program, or product, in 
our effort to provide an automated tool. 

There are a variety of different quantitative software metrics in use today. In an 
important paper by Boehm [Ref. 4], an attempt is made to define software quality in 
terms of some high level characteristics such as reliability, portability, efficiency, 
human engineering, testability, understandability, and modifiability. If we can define 


these characteristics, noting that a precise subjective definition is difficult to achieve, 


and measure these characteristics with some precision, we could strive to maximize 
efeneo! these Characteristics [Ref. 2: p.7]. There are some difficulties here. First, some 
of the characteristics are potentially contradictory. For example, improvements in 
portability and understandability usually result in decreased efficiency [Ref. 2: p.7]. 
Secondly, there are significant cost/benefit tradeoffs. For example, the cost of 
producing highly reliable code may be several times more costly, in terms of time and 
ammcone, than for less reliable code [Ref. 2: p.7]. 

The measurement of software complexity is receiving increased attention in 
recent years. Complexity has been a loosely defined term but Bull Curtis defined 
complexity to be a characteristic of the software interface which influences the 
resources another system will expend or commit while interfacing with the software 
[Ref. 5]. Two separate and distinct focuses have emerged in studying software 
complexitv: computational and psychological complexity  [Ref. Ll: p.208}. 
Computational complexity relies on the formal mathematical analysis of such problems 
as algorithm efficiency and use of machine resources. In contrast, the empirical study 
of psychological complexitv has emerged from the understanding that software 
development and maintenance are largely human activities. Psychological complexity is 
concerned with the characteristics of software which affect programmer performance 
[Ref. 1: p.208]. This thesis will focus entirely on program complexity in an effort to 
provide a representative metric from selected quantitative measures. 

There are a variety of complexity metrics available and we will briefly highlight a 
few of them. A number of metrics having a base in graph theory have been proposed 
to measure complexity from control flow [Ref. I: p.210]. Thomas McCabe devised one 
of the better known complexity metrics in relation to the decision structure of a 
program [Ref. 6]. McCabe argues that his metric assesses the difficulty of testing a 
program, since it is a representation of the control paths that must be exercised during 
testing [Ref. 1: p.210]. Victor Basili and Robert Reiter [Ref. 7], have developed 
different counting methods for computing cyclomatic complexity by counting rules for 
case statements and compound predicates [Ref. 1: p.210]. Definitive data on the most 
effective counting rules has yet to be presented. The best known and most thoroughly 
studied of the composite measures of complexity is Halstead’s theory of Software 
Science [Ref. 1: p.211]. In 1972, Maurice Halstead argued that algorithms have 
measurable characteristics analogous to physical laws. We will focus this thesis on 
Halstead’s theory as the representative metric we implement. We will first look at 


Halstead’s theory. 


C. HALSTEAD 

Halstead’s software science theory applies the scientific method to the properties 
and structure of computer programs. It attempts to provide precise, objective 
measures of the complexity of existing software, which is then used to predict the 
length of the programs [Ref. 9: p.3]. Numerous statistical studies have shown very 
high correlations between the theory’s predictions and actual program measures such 


as mean number of bugs [Ref. 8: p.85]. Halstead defined four basic measures: 


l. nl : The number of distinct operators appearing in a program. 
2 n2: The number of distinct operands appearing in a program. 
3s NI: The total number of occurences of the operators in a program. 
4. N2.: The total number of occurences of the operands in a prograni. 


Halstead defined the size of the vocabulary to be the operators plus the operands 


as in Equation 1.1. 
n=nl + n2 (eqn 1.1) 
Halstead’s theorv [Ref. 8: p.11], savs that actual program length can be 
calculated by adding the total number of operand references with the total number of 
operator references as in Equation 1.2. 


N = NI + N2 (eqn 1.2) 


Halstead, using information theory, comiputes the theoretical length or predicted 


length as in Equation 1.3. 
No al (oe an) ances (log, (n2)) (eqn 1.3) 
Halstead also speaks of program volume as in Equation 1.4. 
Ve loys ial (eqn 1.4) 
The intuition is simple. For each of the N elements of a program, log, (n) bits 


must be specified to choose one of the operators or operands for that element, thus, 


volume (V) measures the number of bits required to specify a program [Ref. 8: p.19]. 
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Halstead also hypothesized a conservation law between the level of abstraction and the 
volume. The level is defined as the ratio of potential to actual volume where the 
potential volume is the volume of the most compact (highest-level) representation of 
the algorithm [Ref. 8: p.25]. Effort. another variable that Halstead suggests, is a 
measure of the mental effort required to create a program. He describes effort as the 
ratio of volume to program level which implies that programming difficulty increases as 
the volume of the program increases. and decreases as program level increases 
Mets: 0.47}. Halstead hypothesized that programming Time (T) should be directly 


maereoruonal to the Effort (E) in a program. as in Equation I.5. 
T=E/S (eqns) 


The constant S represents the Speed of a programmer, t.e.. the number of mental 
discrinunations per second of which he/she ts capable [Ref. 8: p.48]. 

We agree with Alan Perlis, that regardless of the empirical support for many of 
Halstead’s predictions. the theoretical basis for his metrics needs considerable attention 
eee?) p.214), Halstead. more than other researchers. tried to integrate theory from 
both computer science and psychology. Unfortunately, some of the psvchological 
assumptions underlying his work are difficult to justifv for the phenomena to which he 
applied them [Ref. 1: p.214]. Perlis states, and again we agree, that computer scientists 
would do well to purge from their memories the magic number 7 + or - 2, and the 
Stroud number of 18 mental discriminations per second. These numbers describe 
cognitive processes related to the perception or retention of simple stimuli, rather than 
the complex information processing tasks involved in programming [Ref. 1: p.214]. 
Broadbent [Ref. 10], argues that for complicated tasks (such as understanding a 
program) the magic number is substantially less than seven. For the above reasons, 
this thesis will focus on the actual count of the operators and operands and will totally 


exclude any discussion about Halstead’s other hypothesis. 


D. OUR METRIC 

The metric we have implemented will take, as input, an Ada program and analyze 
this program with respect to Halstead’s length hypothesis. To properly carry out this 
task, the input program must be decomposed into its most basic lexical elements, and 


then parsed to ensure that the program is syntactically correct. As the structure of the 


I] 


program is being validated the data needed for metric implementation is collected and 
stored for later analysis. We have designed a generic front-end for this metric tool 
which means other metrics can be added at a later date, thus giving the program the 
ability to be expanded and provide a wider range of data. We will cover each of these 


front-end sections in detail and describe how and why our metric operates. 


WZ 


Il. DEVELOPING AN ADA GRAMMAR 


A. INTRODUCTION 
The grammar ofa language specifies the svntax of the language and 1s used to 
help guide the translation of programs. A grammar naturally describes the hierarchial 
Structure of many programming language constructs [Ref. 11: p.26]. A grammar has 
four components: 
l. <A set of tokens, known as terminal symbols. 
2. <A set of nonterminals. 


3. A set of productions which consists of a nonterminal, an arrow, and a 
sequence of terminals and/or nonterminals. 


4. <A designation of one of the nonterminals as the starr svmbol. 

Grammars are classified by manv characteristics, and different parsing techniques 
are more or less effective on a particular class of grammar. The most efficient methods 
of parsing, top-down and dottom-up, which we will cover in chapter four, work onlv 
On certain subclasses of grammars. Several of these subclasses, such as the LL and 
LR grammars, are expressive enough to describe most syntactic constructs in 
programming languages [Ref. 11: p.160]. Parsers implemented by hand often work 
with LL grammars and parsers for the larger class of LR grammars are usually 
constructed by automated tools. The first L in LL stands for scanning the input 
from left-to-right, the second L for producing a leftmost derivation. Converselv the L 
in LR is again for left-to-right scanning of the input, the R for constructing a 
rightmost derivation in reverse [Ref. 11: p.215]. A grammar that is LL(1) can be 
deterministically parsed with a top down left to right scan by using onlv one token 
lookahead. Therefore, an LL(1) grammar has a parsing table with no multiply-defined 
entries. If the present parsing table has multidefined entries an attempt can be made to 
transform the grammar by eliminating all left recursion and left factoring whenever 
possible [Ref. 11: p.192]. There are some grammars for which no amount of alteration 
will yield an LL(1) grammar. Eliminating left recursion and then left factoring 1s easy 
to do but may make the resulting grammar hard to read and difficult to use for 
translation purposes. These procedures are covered in the next section. 

A grammar generates strings by beginning with the start symbol and repeatedly 


replacing a nonterminal by the right side of a production for that nonterminal. The 
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terminal strings that can be derived from the start symbol form the language defined 


by the grammar [Ref. 11: p.28]. 


B. GRAMMAR FOR THE ADA LANGUAGE 

Ada is a very large language consequently the grammar for this language ts also 
very large. We chose to use a top-down, recursive-descent parser, which will be 
covered in greater detail in chapter four, as our method of analyzing our input 
program. We used the Ada language as defined in the Ada Language Reference 
Manual (LRM) [Ref. 12]. Our first step was to translate the Ada language from the 
Backus-Naur Form given in the Ada Language Reference Manual. In translating this 
grammar, which is not LL(1), into an LL(1)-like grammar, it was necessary to 
massage the language description given in the manual. Massaging is the process of 
removing all left recursion and then left factoring. Left recursion is when the leftmost 
svmbol on the right side of a production is the same as the nonterniunal on the left side 
of the production. Left recursion must be eliminated for this top-down, recursive 
descent parser to alleviate the possibility of infinite looping. It must be remembered, 
this process does not guarantee that the transformed language will be LL(1). However, 
Wwe must be sure to perform transformations that lead to a grammar for the same 
language. The remainder of this chapter is devoted to the discussion and explanation 
of how we miassaged the grammar. The complete grammar used by our parser can be 
found in Appendix A. Our translation key has terminal symbols as lowercase letters, 
non-terminal symbols as uppercase letters, and bold-faced symbols to indicate the 
mieta-symbols of our grammar. 

Once the initial granimar is expressed in our meta-symbology, the next step is to 
remove all left recursion. Since the BNF form in the LRM showed no left recursion, it 
appeared that this step would not be required. However, there was one case of left 
recursion that was not apparent until several substitutions of the productions had been 
made. This case involved the production ~ rules for NAME, 
INDEXED COMPONENT, SLICE, SELECTED COMPONENT, ATTRIBU Tia 
PREFIX. The production rules, when taken directly from the LRM, appear as the 


follows: 


NAME --> identifier 
--> character_literal 
==> Ser inguliceray 


==? INDEXES COUPONENT 
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aa Lek 
gene Gl ED COMPONENT 
aes Se) eeu he 


INDEXED_COMPONENT --> PREFIX (EXPRESSION) 
SLICE --> PREFIX (DISCRETE_RANGE) 
Severe) COMPONENT <--> PREFIK.SELECTOR 


Pee DULE =--> PREPIA'ATIRIEUTE DESIGNATOR 


PREFIX --> NAME 
--> FUNCTION_CALL 


When starting with NAME and substituting in the productions. the left recursion 
becomes readilv apparent. For example: 


NAME --> SLICE --> PREFIX(DISCRETE_RANGE) ==> NAME (DISCRETE_RANGE) 


We see that the foilowing production exists: 


NAME --> NAME (EXPRESSION) 


Several other productions, left recursive on NAME, can be generated using the other 
rules listed above. 

Now that left recursion does exist, we expanded out the productions listed above 
{using the same technique previously demonstrated) and combined them all as 
production rules for NAME. The production rules for INDEXED COMPONENT, 
peleeE, SELECTED COMPONENT, and ATTRIBUTE were incorporated into 
NAME so they were removed from our grammar. The final set of production rules for 
NAME can be found in Appendix A. 

The third step in massaging our grammar is left factoring. Our parser could not 
function with one token lookahead if left factoring were possible. Left factoring 1s a 
grammar transformation which uses the basic idea that if it is not clear which of two 
alternative productions to use to expand a nonterminal, it may be possible to rewrite 
the productions to defer the decision until we have enough of the input to make the 
correct decision. To demonstrate this procedure, we will show the left factoring used 
on the productions for RELATION. Taken directly from the LRM the production 
rules for RELATION are as follows: 


i) 


RELATION ==> SIMPRESE CRESS iCl 
e-> SIMPLE_EXPRESSION RELATIONAL_OPERATOR SIMPLE_EXPRESSION 
--> SIMPLE EXPRESSION in RANGES 
--> SIMPLE_EXPRESSION not in RANGES 
--> SIMPLE_EXPRESSION in TYPE_MARK 
--> SIMPLE_EXPRESSION not in TYPE_MARK 


Applying the rule of tent factoring, a new nonterminal. 
SIMPLE EXPRESSION_TAIL. has been added to the grammar. the production 
rules for RELATION and SIMPLE EXPRESSION TAIL now look” Tikexaiie 


following: 
RELATION --> SIMPLE_EXPRESSION SS2PU GRE Pee soe iat Aer 


SIMPLZ_eXPRESSION_TAIL <--> RELATIONAL OPERATOR SPiPLS SR PRESoe 
“-> in RANGES 
--> not in RANGES 
“-> in TYPE_MARK 


==> (NOt im D7 Pasian 


Finally, in attempting to make our gramimar LL(1) it was necessary to combine 
several similar constructs together so that it could be parsed by one function of the 
parser. For example, the reserved word package appears in several instances including 
a package specification, a package body declaration, a separate package body 
declaration, a generic instantiation of a package, and the renanung of a package. In 
each of these exaniples the reserved word package is used, and even with the ablility to 
look ahead one token, it is impossible to tell which form of the package construct 1s 
being utilized. We massaged our granimar so that if package is encountered the 
function PACKAGE DECLARATION is called. The function 
PACKAGE DECLARATION first checks for the reserved word body, indicating a 
package body declaration, oor a separate package body declaration. 
PACKAGE DECLARATION then checks for an identifier, indicating a package 
specification, a generic instantiation, or a renaming declaration. If body is present 
then the function PACKAGE BODY is called. If an identifier is present then the 
function PACKAGE _UNIT is called. This technique of decision making based on 


reserved word or terminal symbol presence is extended into the functions 
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PACKAGE BODY and PACKAGE UNIT to further decide which form of package 1s 
being utilized. In essence, we have expanded the production rules to allow each new 
production the ability to correctly determine, with one token lookahead, what the next 
production rule will be. This entire process is also used for the different versions of 


procedures, functions, and tasks which can appear in an Ada program. 


7 


It. LEXICAL ANALYZER 


A. INTRODUCTION 

Ada is an extremely large language, comparable in size to PLI. It was developed 
on behalf of the Department of Defense for use in embedded systems [Ref. 13: p.xi]. 
Based on Pascal. Ada is the first practical language to bring together important 
features such as data abstraction. multitasking, exception handling, encapsulation and 
generics [Ref. 13: p.xi]. Our design approach utilizes a division of labor and we 
separate our metric into phases which perform a single, specific function. The first two 
phases, lexical analysis and parsing, combine to form a generic front-end machine. 
This front-end machine constructs an intermediate representation of the source 
program. The information necessary to implement the metric 1s then collected and 
analyzed from the intermediate form. We will look. in depth, at the lexical analyzer 


and identify how it operates and why it is necessary. 


B. TOKENS 

Lexical Analysis, often called linear analysis or scanning, is when a stream of 
characters making up the source program 1s read from left-to-right and grouped into 
tokens, which are sequences of characters having a collective meaning [Ref. 11: p.4]. 
The character sequence forming a token, with the legal characters as described in 
[Ref. 12: p.2-1], 1s called the /exeme for the token. This lexeme is what 1s used to 
identify the actual operators and operands that serve as the input for our metric. All 
variables will have a lexeme, such as sgrt, rate, answer, and so on. There are seven 
token classes in the Ada language. They are identifiers, separators, numeric literals, 
delimiters, conmunents, character literals, and string literals. The lexical analyzer takes 
the source program one character at a time, and builds the token lexeme as it 
determines the token class. Each token is generated by a finite state automaton. A 
finite state automaton, often called a finite state machine, is a mathematical model for 
a device that 1s capable of recognizing strings of characters defined by a certain class of 
grammars, called regular grammars. Our scanner, or lexical analyzer, can be in any 
one of a finite number of internal configurations or states [Ref. 14: p.13]. The state of 
the system summarizes the information concerning past inputs that is needed to 


determine the behavior of the system on subsequent inputs. The lexical analyzer scans 
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the symbols of a computer program to locate the strings of characters corresponding to 
one of the seven token types mentioned earlier. In this process the lexical analyzer 
needs to remember only a finite amount of information, such as how long a prefix of a 
reserved word it has seen since startup [Ref. 14: p.14]. 

We will now address these tokens individually and discuss not only their purpose 
and content but also the finite state machines we programmed to handle their 
recognition. 


{. Identifiers 


LETTER 


UMDERSCORE 








at 


LETTER 


LETTER 


DIGIT Stihl! 
ID-IDENTIFIER 


Figure 3.1 Finite State Machine for Identifiers. 


Identifiers are used as names and also as reserved words [Ref. 12: p.2-4]. An 
identifier must start with a letter and it can then be any combination of letters, digits 
or the underscore character (_). There cannot be two underscore characters side by 
side in the identifier and there is no maximum length specified for any identifier. 
Identifiers differing only in the use of corresponding upper and lower case letters are 
considered as the same [Ref. 12: p.2-4]. The finite state machine we programmed to 
identify and store token identifiers is seen in Figure 3.1. 

2. String Literal 

A string literal 1s formed by a sequence of zero or more graphic characters 
enclosed between two quotation characters (") used as string brackets [Ref. 12: p.2-6]. 
A string literal has a value that 1s a sequence of character values corresponding to the 


graphic characters of the string literal upart from the quotation character itself 
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S-START 


SL- STRING LITERAL GRAPHIC CHARACTER 







*® 






DOUBLE | DOUBLE 
RAPHIC CHARACTER = 
QUOTE : : 3 QUOTE 


He ET 


Figure 3.2 Finite State Machine for String Literals. 


(Ref. 12: p.2-6]. Ifa quotation character value is to be represented in the sequence of 
character values, then a pair of adjacent quotation characters must be written at the 
corresponding place within the string literal. The length of a string literal is the 
number of character values in the sequence represented, except for doubled quotation 
characters which are counted as a single character [Ret. 12: p.2-6]. A string literal must 
fit on one line since it is a lexical element but longer sequences of graphic characters 
can be obtained by catenation of string literals [Ref 12: p.2-7]. Except for the instance 
of doubled quotation characters, the finite state machine we programmed to identify 
and store token string literals can be seen in [igure 3.2. 


3. Character Literals 


S-START 
CL-CHARACTER LITERAL 


SINGLE SINGLE 
QUOTE 


GRAPHIC CHARACTER 





Figure 3.3. Finite State Machine for Character Literals. 
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A character literal 1s formed by enclosing one of the 95 graphic characters 
(including the space), which are described in [Ref. 12: p.2-l], between two apostrophe 
characters (‘). A character literal has a value that belongs to a character type. The 
finite state machine we created to identify and store token character literals can be 
seen in l‘igure 3.3. 


4. Comments 


GRAPHIC CHARACTER LINE FEED 


. »> - | _ 1S) 


S-START 
CARR! R 
COM-COMMENT SRS RS 


Figure 3.4 Finite State Machine for Comments. 


A comment starts with two adjacent hyphens and extends up to the end of the 
line. A comment can appear on any line of a program [Ref. 12: p.2-7].. The presence 
or absence of comments has no influence on whether a program 1s legal or illegal. 
Furthermore, comments do not influence the effect of a program. The sole purpose of 
conmiments is to provide clarity and explanation to the human reader. The horizontal 
tabulation can be used in comments, after the double hyphen, and 1s equivalent to one 
Or more spaces [Ref. 12: p.2-7]. The finite state machine we programmed to identuly 
and store token comunents can be seen in Figure 3.4. 

5. Separators 

In certain cases an explicit separator is required to separate adjacent lexical 
elements (namely, without separation, interpretation as a single lexical element 1s 
possible) [Ref. 12: p.2-3]. A separator is any of a space character, a format elYector 
(such as horizontal tabulation, vertical tabulation, carriage return, line feed, and form 
feed), or the end of a line [Ref. 12: p.2-3]. A space character is a separator except 


within a comment, a string literal, or a space character literal. The horizontal 


SEPER ATOR 


S-START 
SEP-SEPERATOR 


SEPERATOR 





Figure 3.5 Finite StateMachine for Separators. 


tabulation 1s not a separator within a comment. One or more separators are allowed 
between any two adjacent lexical elements (tokens), and at least one separator 1s 
required between an identifier or a numeric literal and an adjacent identifier or numeric 
literal. The finite state machine we programmed to identify and store token separators 
is seen in | igure 3.5. 


6. Delimiters 


DELIMITER 


S-START DELIMITER 
DEL-DELIMITER 
CO-COMPOUND DELIMITER 





Figure 3.6 Finite State Machine for Delimiters. 


A simple delimiter is either one of the following special characters (in the basic 
character set): 


ee OS) Me gS | 


V2 


A compound delimiter is one of the following, each composed of two adjacent 

special characters 
SN 
Any other combination of adjacent special characters is not a legal compound 
delimiter. The finite state machine we programmed for identifYing and storing token 
delimiters is seen in Figure 3.6. 
7. Numeric Literal 

The numeric literal is ov far the most complex and varied ivpe of token. It 
eileomipasses real numbers. integer numbers, and based numbers which are numeric 
iteraissexpressed in an explicitly specified base between 2 and [6 [Ret. 12: 2-5’j.‘p. A 
real number is a number with a decimal point. an integer is a number without a point 
and a based literal is, again, a number whose base is explicitly stated. An underltne 
@iamaetcr {_) inserted between adjacent digits of a numeric literal does not affect the 
Maumero! wis numeric literal. The only letters allowed as extended digits are the letters 
A through F, which stand for the digits ten through fifteen in hexidectmal. A letter in 
fe oeeed Number can be written either in lower case or in upper case, with the same 
meaning (Ref. 12: p.2-5j. Leading zeros are allowed. No space ts allowed in a numeric 
iiteral, NOt even between constituents of the exponent. since a space is a separator. A 
@eeomexponent is allowed for an integer literal. The finite state machine we 


progranimed to identify and store token numeric literals can be seen in Figure 3.7. 


C. TOKEN USE 

As was seen in Chapter II, a grammar is made up of terminals, non-ternunals. a 
start symbol, and productions. The ternunals are the basic symbols from which strings 
are formed. These strings are the combinations of the most basic symbols, tokens, 
which form meaningful expressions to a particular language. To be able to analyze 
these strings and deternmune whether or not a given string is a legal statement in any 
given language we nmuust first identify each token as it is entered by the program. 
Identification of the tokens pernuts the computer to compact the incoming data thus 
allowing the saving of space. For example, if someone placed ten blanks in an input 
program where only one was needed, lexical analysis would see the separator and flush 
the other unused blanks, thus saving space. Certain tokens will be augmented by a 
lexical value. For example, when an identifier like rate is found, the lexical analyzer 


not only generates a token, say id, but also enters the lexeme rate into the symbol 


ja, 
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Figure 3.7. Finite State Machine for Numeric Literals. 
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table, if it is not already there [Ref. 11: p.12]. The lexical value associated with this 
occurence of id points to the symbol-table entrv for id. The construction of these 
tokens is done by reading one character at a time and building the lexeme of the token 
by appending the appropriate characters together. This translation from the input 
program to a simple stream of tokens is the sole job of the lexical analvzer. In the 


next chapter we will look at the system parser and its functions. 


“ 


IV. PARSER 


A. INTRODUCTION 

The parser, which is the second component of our front-end machine, is the 
mainstay of our metric. Parsing is also called hierarchical analysis or syntax analvsis. 
It involves grouping the tokens, created by the lexical analvzer, of the source program 
into grammatical phrases that are used to synthesize output [Ref. 11: p.6]. A parser 
can be constructed for anv context-free grammar. The important factor in parsing is 
speed. Given a programming language, we can generallv construct a grammar that can 
be parsed quickly. Most programming language parsers make a single left-to-right 
scan over the input, looking ahead one token at a time [Ref. 11: p.41]. In discussing 
this parsing problem, it is helpful to think of a parse tree being constructed. even 
though our front-end machine does not actually construct a tree. A parse tree 
describes the svntactic structure of the input. It pictorially shows how the start symbol 
of a grammar derives a string in the language [Ref. 11: p.29]. Formally, given a 
context-free grammar, a parse tree is a tree with the following properties: 

1. The root 1s labeled by the start symbol. 
2. Each leaf is labeled by a token or emptv string. 
3. Each interior node 1s labeled by a nonterminal. 

The leaves of a parse tree, read from left to right, form the yield of a tree, which 
is the string generated or derived from the nonterminal at the root of the parse tree 
(Ref. ll: p.29]. The term, context-free grammar, which is mentioned earlier, defines a 
finite set of variables (also called nonterminals or syntactic categories), each of which 
represents a language (Ref. 14: p.77]. A context-free grammar is denoted G = 
(V,T,P,S), where V and T are finite sets of variables and terminals respectively 
(Ref. 14: p.79]. P is a finite set of productions; each production (A = > W) is of the 
form A produces WY where A isa variable and WV is a string of symbols from any 
combination of (V union T). Finally, S is the start symbol. It must be noted though 
that although our front-end machine is capable of constructing a parse tree (otherwise 
the translation would not be guaranteed correct) the actual tree is not necessary for 


our metric purposes and is therefore not built. 
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Most parsing methods fall into one of two classes, top-down and bottom-up 
methods [Ref. 11: p.41]. These terms refer to the order in which nodes in the parse 
tree, if the tree actually existed, were constructed. In the top-down method, 
construction starts at the root and proceeds towards the leaves going deeper and 
deeper until eventually reaching the bottom. In the bottom-up method it is just the 
Opposite. Construction starts at the bottom and proceeds towards the root. The 
popularity of top-down parsers is due to the fact that efficient parsers can be 
constructed more easily by hand using top-down methods [Ref. 11: p41]. Bottom-up 
parsing, however. can handle a iarger class of grammars and translation schemes. so 
software tools tor generating parsers directly from grammars have tended to use 
bottom-up methods [Ref. [1: p.41]. Because of its efficiency and ease of use, we have 
chosen to use the top-down method of parsing for the front-end machine of our metric. 
Furthermiore, we chose a particular tvpe of top-down parsing called recursive-descent. 
This technique, a classical method often used in industry, is very powerful. We 


describe its operation in the following section. 


B. TOP-DOWN RECURSIVE DESCENT PARSING 

Recursive-descent parsing is a top-down method of syntax analvsis in which we 
Seeemle a set Of recursive procedures to process the input [Ref. 11: p.{4]. A function is 
associated with each nonterminal of a grammar. We now consider a special form of 
recurSive-descent parsing, called predictive parsing, in which the token symbol 
unambiguously determines the function selected for each nonterminal [Ref. 11: p.44]. 
The sequence of functions called in processing the input implicitly defines a parse tree 
for the input. 

Our procedure GET CURRENT_TOKEN RECORD builds an array of fiftv 
tokens and, starting at the initial position controls a pointer which identifies the 
current token being parsed and another pointer which identifies the next or lookahead 
token to be parsed. The function BYPASS is the central control and workhorse for 
our parser. It compares the current token with predefined terminals. If there is a 
token-to-terminal match, BYPASS consumes the token by adjusting the index pointers. 
All of the terminal symbols in the Ada language are defined and any nonterminal is, as 
was Stated earlier, a function call that returns a boolean value of true or false. 

Parsing begins with a call for the starting nonternunal, which 1s COMPILATION 


in the Ada grammar. Parsing progresses as each function calls other functions, 


Ze 


descending into the parse structure until a call to BYPASS is performed and the 
appropriate boolean value is returned. This process of ascending and descending the 
parse structure continues until all the tokens created from the input file have been 
consumed or an error occurs. 

We made an attempt to design the parser to be as robust as possible. However, 
due to the complexity of the language we were often forced to rely on the fact that the 
input file had been correctly compiled before being fed into our parser. The fact that 
the input file was precompiled allowed us to drop the ‘ralicized element of the 
nonternunails in the grammar. Some examples of this modification are: 

|. <A parser for a compiler would normallv have to remember the tvpe associated 
with NAME each time mw was encountered: Imeeur case we ny dropped the 
tvpe requirement and parsed all of them with the function NAME. For example. 
ail of the following are reduced to just NAME: TYPE_NAME, VARIABLE_NANE, 
PROCEDURE_NAME, FUNCTION_NAME, ENTRY_NAME, and this list 1s far from 
COmmisse: 

2. Another, example occured when we dropped the italicized element of the 


nonterminal ZAPRESSION. Since the tvpe had been checked bv a full Commies 
for our parser the foilowing three nonterminals became simplv EXPRESSION: 


UNIVERSAL_STATIC_EXPRESSION, | QUALIFIZD_EXPRESSION., and 
SOOLEAN_EAPRESSION. ihe tollowing two nontermunals became 
SIMPLE_=XPRESSION for the same reasons: STATIC_SIMPLE _=@XPRESSION and 
DELAY SsiMPle bebe beow ee 


os 


Our third example is that bv oOo ee the italicized elemeninaes 
DISCRETE _SUSTYPE_INDICATION and COMPONENT SUBTYPES _INDICAT IO HMINan = 
can both be correctly parsed py SUBIVrE INDICA Mier. 

The changes highlighted above, and others that are not shown, were done to 

reduce the size and complexity of the parser. Having to retain all the type information 

would have required a much more extensive parsing element. This reduction allows 

Our parser to be miore efficient in its operation. We did not intend for our front-end 

machine to be a full compiler. We only needed to parse an input file in enough detail 


to be able to collect the meaningful and relevant metric data. 
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V. ADAMEASURE 


A. INTRODUCTION 

As was seen in the first chapter of our thesis there is a variety of different metric 
theories. By request of the Missile Software Branch, Naval Weapons Center, China 
Lake, we implemented the Halstead Software Science Metric. In the effort to provide 
as much information about the input program as possible. we also provide information 
on comments and nesting. We felt it was important to avoid trving to generate a 
single number, say betweeen one and ten, which would be an attempt to quantifv the 
given metric information into a single numeric statement. Instead we generate a few 
important numbers, then we applv some reasoning to what we believe these numbers 
mean in relation to program complexity and overall software quality. We stress what 


the program says about the software 1s merelv suggestive. 


B. DATA COLLECTION 
In explaining the how and whyv of our data gathering. we will deal with each of 
the three types of information analysis separately. 
1. Halstead Data 
As stated in chapter one, we only implemented the program length metric 
from Halstead’s software science theory. We gathered the operator data through our 
workhorse function BYPASS which counted every token-to-operator terminal match. 
To acquire the operand data we generated a symbol table of all identifiers, be thev 
variables, procedures, functions, tasks, blocks, or numeric constants. Once this was 
completed we now had the four Halstead parameters nl, n2, NI, and N2. Having 
calculated the theoretical length and actual length we divided both of these numbers 
by total lines input to allow comparisons of results from programs of different size. 
If the actual length is greater than the theoretical length Halstead 


hypothesized that the difference is caused by one or more of the following six classes of 


impurities. 
e Cancelling S ihiemoceuiencesol am inverse Cancelssthe effect of a 
paSeus operator; no other use of the variable changed 
y the operator is made before the cancellation. 
e Ambiguous operands : The same operand is used to represent two or more 


variables in an algorithm. 
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e Synonymous operands Ie Or more operand names represent the same 
variable. 


¢ Common subexpressions : The same subexpression occurs more than once. 


e Unnecessary replacements : A subexpression is assigned to a temporary variable 
which is used only once. 


e Unfactored expressions : There are repetitions, of operators and operands 
aniong unfactored terms in an expression. 


If the theoretical length is greater than the actual length then the following 
conditions could exist: 


¢ Operands : There may be some variables which were declared but never 
referenced in the program. 


¢Globals : A large number of the variables referenced were declared in the 
packages instantiated bv the WITH statement. 


2. Comment Data 

As the input file is parsed, a count is kept of the comment lines. Upon 
completion of parsing the number of coniment lines is divided by the total lines input, 
then multiplied by one-hundred to yield the overall comment percentage. On the basis 
of this percentage we nmiake reconimendations, that might prove helpful to the software 
engineer. Briefly, we consider a comment percentage between zero and fifteen percent 
as low and we state that unless the program: utilizes Ada’s extensive variable 
identification ability then there may be too few comments for adequate reader 
comprehension. We consider a comment percentage between fifteen and fifty as a 
reasonable number and state that this could give the reader a good understanding of 
the program. A comment percentage between fiftv and eighty-five percent 1s 
considered fairly high and we state that the program has good understandability but 
runs a small risk of obscuring the code. Lastly, a comment percentage between eightv- 
five and one-hundred percent is an extremely high percentage and we say that the 
program has a higher possibility of obscuring the code in the high number of 
comments. 

3. Nesting Data 

Determining a program’s coniplexity is not an easy thing but it is generally 
accepted that as the nesting level increases so goes the complexity level. We have 
implemented a nesting level sunimary which counts how frequently a given nesting 
level was reached, maintains a record for each level, and keeps track of the maximum 


level used and where it was first encountered. 
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VAST CONGEUSIONS 


eee NVIETRICS 

The Department of Defense’s interest in metrics provides a powerful motivation 
for the continued research into possible metric tools. The software crisis is severe 
enough to Warrant tools. aids. just any bit of information that will tmprove the 
erate cnvinesrine process. Computer Science is such an infant in the world of 
academia and metrics is such a very small part of this child that we are aware of the 
difficulty in finding breakthroughs. The computer scientsts mav have tried to “catch- 
up with the other sciences much too rapidly, consequently they mav have missed 
laving some of the necessarv foundations. 

Our initial eifort is a good start, a baseline from which future efforts can build 
upon. AdaMeasure is a helpful tool for providing the sottware engineer with the 
information that is presently gathered bv hand. We do not fee! software metrics shouid 
simply attempt putting 2 number onto a program in the effort to quantfv its quailty. 
MenteGescribing what the metric has seen and how it relates to the programmer and the 
program is what is really needed for the output. It is this bridging from the concrete 
world of the metric to the abstruse, metaphysical environment of the actual software 
that presents the real challenge. As we collect and analyze the data, we bridge this gap 
by providing recommendations to the user on how we see the interrelationship of these 
two entities. These recommendations are based on currently accepted software 


practices. 


B. IMPLEMENTATION 

In our effort to make the Ada grammar more LL(1)-like we were forced to 
perform extensive massaging. This massaging allowed us to use the top-dowm, 
recursive-descent parsing technique. This classical, tme tested method proved to be 
easily implemented and debugged. The extensive massaging made it necessary for us to 
frequently check and reaffirm that the language generated bv our newly transformed 
grammar was exactly the same as the initial language. This point cannot be 
overstated. The languages must be identical. Because of the complexity involved in 
massaging and checking the grammar, we feel we have some insight into how 
languages are created, how they build upon themselves, and where languages are going 


in the future. 
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When we originally accepted the proposal for creating a metric, we Were not 
aware of how complex and time consuming the implementation of the front-end 
machine would be. This complextiy, coupled with the fact that Ada is a brand new 
language and relatively unknown other than by name, made it a struggle until we had 
significantly progressed along the learning curve. We found the Ada compiler. which 1s 
currently a state-of-practice compiler, to be extremely slow in comparison to the 
compilers we were familiar with such as Pascal or Fortran. The Naval Postgraduate 
School has no Ada compiler so we were forced to work over Arpanet or Telnet for the 
actual prograniming. This presented problems and delays on a regular basis. The 
expiration of access card numbers, the malfunctioning of the bridge box. the networks 
going down, the slow baud rate between stations. and machine downtime at NWC 
China Lake, both scheduled and nonscheduled, made information transfer a real hurdle 


in the overall effort. 


Geo Tine eee 

Having designed a zeneric metric tool. we hope the program will be expanded 
and improved. There is already a plan in progress to have Sallie Henry and Dennis 
Kalura’s Complexity Flow Metric implemented. There is a real need for user mteriace 
improvements. Because of the limited hardware options available to us, we have 
programmed our interface to deal with the VT-100 terminal. To make the system more 
robust and transportable, an interface scheme that would be functional from a variety 
of different terminals would be a useful endeavor. 

This metric was undertaken at the request of NWC China Lake and all of our 
efforts have been guided by their input to us. Pragmas, which are used to convey 
information to the compiler, are currently being used in run-time systems only at China 
Lake and although they are in the Ada grammar we have not implemented them in our 
metric. It would greatly increase the value of the program if the pragma portion of the 
grammar were implemented. The Software Missile Branch of NWC China Lake has 
provided all the Ada programs at their disposal to help us test our metric for proper 
parsing. We have successfully tested our metric on all these files and we have 
successfully tested our own code by feeding our metric into itself. Although our tests 
have been successful we have not tested all of our code. There is a particular need for 
programs that will test our metric in the area of tasking and all the code that is 


associated with it. This testing effort should be carried our as soon as possible. 
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Metrics are important. We hope that our initial work will be expanded and put 
to real use as a aid to the software engineer. Although Ada is new and relatively 
unexplored as a language, we feel it will begin to build and become more popular. We 


hope our metric adds to this building process. 
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APPENDIX A 
MODIFIED ADA GRAMMAR 


Our translation kev has terminal symbols as lowercase letters, nonterminal 
symbols as uppercase letters, and bold-faced svmbols to indicate the meta-symbols of 
our grammar. 


(9.10) (parser3) & 
ABORT_STATEMENT --> NAME [ , NAME] 


(9.5) (parserl) 
ACCEPT_STATEMENT --> identifier [ (EXPRESSION) ?] [ FoRMAL_PART ?] 
[ do SEQUENCE_OF_STATEMENTS end [ identifier ?] 7] ; 


(4.3) (parser3) - 
AGGREGATE <--> (COMPONENT_ASSOCIATION [ > COMPONENT_ASSOCIATION] ) 


(4.8) (parser3) 
ALLOCATOR --> SUBTYPE_INDICATION [ ‘AGGREGATE 7] 


(3.6) (parser3 ) 
ARRAY_TYPE_DEFINITION --> (INDEX_CONSTRAINT of SUBTYPE_INDICATION 


(5.2) (parser2) 
ASSIGNMENT_OR_PROCEDURE_CALL --> NAME := EXPRESSION 3; 
--> NAME 3 


(4.1.4) (parser3 ) 

ATTRIBUTE_DESIGNATOR --> identifier [ (EXPRESSION) ?] 
--> range [_(EXPRESSION) ? 
--> digits [ (EXPRESSION) 7] 
--> delta [ (EXPRESSION) ?] 


(3.1) (parserl1) 

BASIC_DECLARATION --> type TYPE_DECLARATION 
--> subtype SUBTYPE_DECLARATION 
--> procedure PROCEDURE_UNIT 
--> function FUNCTION_UNIT 
--> package PACKAGE _DECLARATION 
--> generic GENERIC_DECLARATION 
--> IDENTIFIER_DECLARATION 
--> task TASK_DECLARATION 


(3.9) (parserl1) 

BASIC_DECLARATIVE_ITEM --> BASIC_DECLARATION 
--> REPRESENTATION_CLAUSE 
--> use WITH_OR_USE_CLAUSE 


(10.1) (parserd) 
BASIC_UNIT <--> LIBRARY_UNIT 
--> SECONDARY_UNIT 


(4.5) (parser) 

BINARY_ADDING_OPERATOR <--> + 
-=-> ~ 
--> @ 


(5.6) (parserl) 

BLOCK_STATEMENT --> [ identifier : ?] [ declare DECLARATIVE_PART ?] begin _| 
SEQUENCE_OF_STATEMENTS [ exception [ EXCEPTION_HANDLER] ?] ?] 
end | identifier 7] 3 
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(5.4) (parserl) - 
CASE_STATEMENT --> EXPRESSION is [ CASE_STATEMENT_ALTERNATIVE | end case 3} 


(5.4) (parserl) < 
CASE_STATEMENT_ALTERNATIVE --> when CHOICE [ CHOICE | => SEQUENCE_OF_STATEMENTS 


(3.7.3) (parser3) 

CHOICE --> EXPRESSION [ ..SIMPLE_EXPRESSION ?] 
--> EXPRESSION | CONSTRAINT 7] 
--> others 


(10.1) (parserd) P 
COMPILATION --> [ COMPILATION_UNIT] 


(10.1) (parserd) 
COMPILATION_UNIT --> CONTEXT_CLAUSE BASIC_UNIT 


(4.33 (parser3) ae 
COMPONENT_ASSOCIATION --> [ CHOICE {| | CHOICE] => 7] EXPRESSION 


(3.7) (parser2) 


COMPONENT_OECLARATION --> IDENTIFIER_LIST : SUBTYPE_INDICATION | := EXPRESSION 7] ; 


(3.7) (parser2) - 
COMPONENT_LIST --> [ COMPONENT_OECLARATION] [ VARIANT_PART 7] 
--> null ; 


(5.1) (parser2l)} 
COMPOUND_STATEMENT --> if IF_STATEMENT 
--> case CASE_STATEMENT 
--> LOOP_STATEMENT 
--> BLOCK_STATEMENT 
“--> accept ACCEPT_STATEMENT 
--> select SELECT _STATEMENT 


(3.2) (parser2) 

CONSTANT_TERM --> array CONSTRAINED_ARRAY_DEFINITION [ := EXPRESSION ?] 35 
--> := EXPRESSION 
--> NAME IDENTIFIER_TAIL 


(3.3.2) (parser3) 

CONSTRAINT --> range RANGES 
--> digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
--> delta FLOATING_OR_FIXED_POINT_CONSTRAINT 
-“-> (INDEX_CONSTRAINT 


(10.1.1) (parserl) %41% 
CONTEXT_CLAUSE --> [ with WITH_OR_USE_CLAUSE [ use WITH_OR_USE_CLAUSE]  ] 


(3.9) (parserl1) se s 
DECLARATIVE_PART --> [ BASIC_DECLARATIVE_ITEM] [ LATER_DECLARATIVE_ITEM] 


(9.6) (parser3) 
DELAY_STATEMENT ~--> SIMPLE_EXPRESSION 3; 


(6.1) (parser2) 
DESIGNATOR --> identifier 
--> string_literal 


(3.6) (parser3) 
DISCRETE_RANGE --> RANGES [ CONSTRAINT ?] 


(3.7.1) (parser2) x 
DISCRIMINANT_PART --> (DISCRIMINANT_SPECIFICATION [ 5 DISCRIMINANT_SPECIFICATION] ) 


(3.7.1) (parser2) 
DISCRIMINANT_SPECIFICATION --> IDENTIFIER_LIST : NAME [ := EXPRESSION ?] 
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(9.5) (parser2) 
ENTRY_DECLARATION --> entry identifier [ (DISCRETE_RANGE) ?] [ FORMAL_PART ?] 5 


(3.5.1) (parser4) 
ENUMERATION_LITERAL <--> identifier 
--> character_literal 


(3.5.1) (parser@) - 
ENUMERATION_TYPE_DEFINITION --> (ENUMERATION_LITERAL [ ) ENUMERATION_LITERAL | ) 


(11.1) (parser2) 
EXCEPTION_CHOICE <--> identifier 
--> others 


(11.2) (parserl) 2 
EXCEPTION_HANDLER --> when =XCEPTION_CHOICE [ | 2XCEPTION_CHOICE]| 
=> SEGQUENCE_OF_STATEMENTS 


(8.5) (parser2) 
exCEPTION_TAIL --> 5 
--> renames NAME 3} 


(5.7) (parser3) 
EXIT_STATEMENT --> [ NAME ?]| [ when EXPRESSION 7] ; 


($4.4) (parser3 ) 
EXPRESSION --> RELATION RELATION_TAIL 


(4,4) {parser3) 

FACTOR --> PRIMARY [ ** PRIMARY ?] 
--> abs PRIMARY 
--> not PRIMARY 


(3.5.7) (parser3) 
FLOATING_OR_FIXED_POINT_CONSTRAINT --> SIMPLE_EXPRESSION [ range RANGES ?] 


(6.4) (parser4) 
FORMAL_PARAMETER --> identifier => 


(6.1) (parser2 ) . 
FORMAL_PART --> (PARAMETER_SPECIFICATION [ 5 PARAMETER_SPECIFICATION] ) 


(6.1) (parserl1) 
FUNCTION_BODY --> is [ FUNCTION_BODY_TAIL 7?] 


--> 3 
(6.1) (parserl) 
FUNCTION_BODY_TAIL --> separate 3 
--> <> 3 
--> SUBPROGRAM_BODY 
--> NAME 3 


(6.1) (parserl1) 
FUNCTION_UNIT --> DESIGNATOR FUNCTION_UNIT_TAIL 


(6.1) (parser?) 
FUNCTION_UNIT_TAIL --> is mew NAME [ GENERIC_ACTUAL_PART ?] 5 
--> [ FORMAL_PART ?] return NAME FUNCTION_BODY 


(12.1) (parser2) x 
GENERIC_ACTUAL_PART <--> (GENERIC_ASSOCIATION [ , GENERIC_ASSOCIATION] ) 


(12.1) (parser2) 
GENERIC_ASSOCIATION --> [ GENERIC_FORMAL_PARAMETER 2] EXPRESSION 


(12.1) (parserl1) 
GENERIC_DECLARATION --> [ GENERIC_PARAMETER_DECLARATION ?] GENERIC_FORMAL_PART 
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(12.1) (parser2Z ) 
GENERIC_FORMAL_PARAMETER 


(12.1) (parserl) 
GENERIC_FORMAL_PART 


(12.1) (parserl) 


GENERIC_PARAMETER_DECLARATION ~-> 


(12.1) (parser2} 
GENERIC_TYPE_DEFINITION --> 


(5.9) (parser3) 
GOTO_STATEMENT --> NAME 3 
(3.2) (parser2) 
IDENTIFIER_OECLARATION --> 


(3.2) (parser2) 
IDENTIFIER_DECLARATION_TAIL 


(3.2) (parser2) 
IDENTIFIER_LIST --> 
(3.2) (parser2 } 
IDENTIFIER_TAIL --> 
--> 


(5.3) (parserl) 
IF_STATEMENT --> 


-<-> 
~~ > 


CONSTRAINT ?] 
renames NAME 


identifier = 


IOENTIFIER_LIST 
type private 


string_literal => 


procedure PROCEDURE_UNIT 
function FUNCTION_UNIT 
package PACKAGE_DECLARATION 


: [ move ?] Mat = 


{ DISCRIMINANT_PART 7] is 


PRIVATE_TYPE_OECLARATION 3} 


type private 


DISCRIMINANT_PART ?] is 


GENERIC_TYPE_DEFINITION 3; 


( <> ) 

range <> 
digits <> 
delta <> 


with procedure PROCEDURE_UNIT 
with function FUNCTION_UNIT 


array ARRAY_TYPE_DEFINITION 
access SUBTYPE_DEFINITION 


TOENTIETER_CIST 


IDENTIFIER_DECLARATICN_TAIL 


exception EXCEPTION_TAIL 
constant CONSTANT_TERM 
array CONSTRAINED_ARRAY_ODEFINITION 


:= EXPRESSION ?] ; 


NAME IDENTIFIER_TAIL 
identifier [ » identifier]* 


:= EXPRESSION ?] 3 
5 


EXPRESSION then SEQUENCE_OF_STATEMENTS 


[ elsif EXPRESSION then SEQUENCE_OF_STATEMENTS] [ else 
SEQUENCE_OF_STATEMENTS ?] 


(3.6) (parser3 ) 


end if 3 


INDEX_CONSTRAINT --> DISCRETE_RANGE [ , DISCRETE_RANGE] 


(3.5.4) (parser3 ) 
INTEGER_TYPE_DEFINITION --> 


(5.5) (parser3) 
ITERATION_SCHEME 
--> 


(5.1) (parser2) 
LABEL --> << identifier >> 


(3.9) (parserl) 
LATER_DECLARATIVE_ITEM -> 


~--> 


range RANGES 


--> while EXPRESSION 
for LOOP_PARAMETER_SPECIFICATION 


PROPER_BODY 


generic GENERIC_DECLARATION 
use WITH_OR_USE_CLAUSE 


jg 


EXPRESSION ?] 5 


(4.1) (parser3) 
LEFT_PAREN_NAME_TAIL --> FORMAL_PARAMETER ?] EXPRESSION [ ..EXPRESSION ?] 


» [ FORMAL_PARAMETER ?] [ » EXPRESSION [ ..EXPRESSION 


NAME_TAIL] : 
--> DISCRETE_RANGE) [ NAME_TAIL]| 


(10.1) (parser0O) 

LIBRARY_UNIT --> procedure PROCEDURE_UNIT 
--> function FUNCTION_UNIT 
--> package PACKAGE_DECLARATION 
--> generic GENERIC_DECLARATION 


(10.1) (parser0O } 

LIBRARY_UNIT_BOO0Y --> procedure PROCEDURE_UNIT 
--> function FUNCTION_UNIT 
--> package PACKAGE_DECLARATION 
--> generic GENERIC_DECLARATION 


(5.5) (parser3) 
LOOP_PARAMETER_SPECIFICATION --> identifier in [ reverse ?] DISCRETE_RANGE 


(5.5) (parserl) 
LOOP_STATEMENT --> [ identifier : ?] [ ITERATION_SCHEME 7] loop 
SEQUENCE_OF_STATEMENTS end loop [ identifier ?] ; 


(6.1) (parser2) 

MopE --> [ in ?] 
--> in out 
--> out 


(4.5) (parserG) 
MULTIPLYING_OPERATOR --> * 


--> mod 
--> rem 


(4.1) (parser3) 

NAME --> identifier [ NAME_TAIL ?] 
--> character_literal [ NAME_TAIL ?] 
--> string_literal [ NAME_TAIL ?] 


(4.1) (parser3) 

NAME_TAIL --> (LEFT_PAREN_NAME_TAIL 
--> .SELECTOR [ NAME_TAIL]” | 
--> ‘AGGREGATE [ Seal : 
--> 'ATTRIBUTE_DESIGNATOR | NAME_TAIL] 


% 


(7.1) (parserl) 
PACKAGE_BODY --> identifier is PACKAGE_BODY_TAIL 


(7.1) (parserl) 
PACKAGE_BODY_TAIL 


-> separate }3 
--> | DECLARATIVE _PART ?] [ begin SEQUENCE OF_STATEMENTS 


exception [ EXCEPTION_HANDLER] ?] ?] end [ identifier ?] 


(7.1) (parserl1) 
PACKAGE_TAIL_END --> new NAME [ GENERIC_ACTUAL PART ?] 5 
--> BASIC_DECLARATIVE_ITEM], private 
BASIC_DECLARATIVE_ITEM] ?] end[ identifier ?] 5 


(7.1) (parserl) 
PACKAGE_DECLARATION --> body PACKAGE_BODY 
--> identifier PACKAGE_UNIT 


(7.1) (parserl) 


PACKAGE_UNIT --> is PACKAGE_TAIL_END 
--> renames NAME 3 
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a" o[ 


(6.1) (parser2) 
PARAMETER_SPECIFICATION --> IDENTIFIER_LIST : MODE NAME [ := EXPRESSION ?] 


(4.4) (parser3 ) 

PRIMARY <--> numeric_literal 
--> null 
--> string_literal 
--> mew ALLOCATOR 
--> NAME 
--> AGGREGATE 


{7.9%} ({parser2) : 
PRIVATE_TYPE_QECLARATION --> [ limited ?] private 


(6.1) (parserl) 2 

PROCEDURE_UNIT --> identifier { FORMAL_2aRT 7! is SUBPROGRAM_80DY 
--> identifier | 7ORMAL_PART 1 3 
--> identifier {| FCRMAL_?aART 7?! renames NAME 


“ 


NO re | 


(3.9) (parserl1) 

PROPER_BODY --> procedure PROCEDURE_UNIT 
--> function FUNCTION_UNIT 
--> package PACKAGE _SECLARATION 
--> task TASK_DECLARATION 


(3.5) (parser?) : 
RANGES --> SIMPLE_=XPRESSION { ..SIMPLE_EXPRESSION ?! 


(11.3) (parser3} P 5 
RAISE_STATEMENT --> { NAME 7] ; 


(13.43 (parser2) 
RECORD_REPRESENTATION_CLAUSE --> [ at mod SIMPLE_ZEXPRESSION ee . 
[ NAME at SIMPLE_EXPRESSION range RANGES | 
end record 3 


(3.7) (parser2) 
RECORD_TYPE_DEFINITION --> COMPONENT_LIST end record 


(4.4) (parser3) 
RELATION --> SIMPLE_EXPRESSION [ SIMPLE_EXPRESSION_TAIL ?| 


(4.4) (parser3) < 

RELATION_TAIL --> [ and [ then ?] RELATION] 
--> { or [ else ?]_ RELATION] 
--> | xor RELATION] 


(4.5) (parser) 

RELATIONAL_OPERATOR --> 
--> 
--> 
--> <= 
--> > 
--> = 


A™ tl 
iT 


(13.1) (parser2) 
REPRESENTATION_CLAUSE --> for NAME use record RECORD_REPRESENTATION_CLAUSE 
--> for NAME use [ at ?] SIMPLE_EXPRESSION 5 


(5.8) (parser3) 
RETURN_STATEMENT --> [ EXPRESSION ?] 3 


(10.1) (parser0) 


SECONDARY_UNIT --> LIBRARY_UNIT_BODY 
--> SUBUNIT 
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(9.7.1) (parserl) 
SELECT_ALTERNATIVE --> [ when EXPRESSION => ?] accept ACCEPT_STATEMENT 
SEQUENCE_OF_STATEMENTS ?] 
--> [ when EXPRESSION => ?] delay DELAY_STATEMENT 
SEQUENCE _OF_STATEMENTS 7] 
== when EXPRESSION => 2] terminate } 


(9.7.1) (parserl) 
SELECT_ENTRY_CALL --> else SEQUENCE_OF_STATEMENTS 
--> or delay DELAY_STATEMENT [ SEQUENCE_OF_STATEMENTS 2] 


(9.7) (parserl) 
SELECT_STATEMENT <--> LEG) ATEMENT_TAIL SELECT_ENTRY_cALL and select ,; 


7.1) parser} 
SELECT_STATEMENT_TAIL --> SELECT_ALTERNATIVE { or SELECT_ALTERNATIVE] 
--> NAME ; [| SEQUENCE_OF_STATEMENTS 7] 


(4.1.3) (parsers) 

SELECTOR --> identifier 
--> character_literal 
--> string_literal 
--> all 


{5.1} (parserl) a 

SEQUENCE_OF_STATEMENTS --> ! STATEMENT] 

(4.4) {parser3 ) ss ae 

SIMPLE_EXPRESSION --> [ + 4 TERM [ BINARY_ADDING_OPERATOR TERM|_ 
7} TERM | SINARY_ADDING_OPERATOR TERM! 


(4.4) (parsers ) 

SIMPLE_EXPRESSION_TAIL <--> RELATIONAL_OPERATOR SIMPLE_cXPRESSION 
--> [ not ?] in RANGES 
== | moe a in NAME 


(5.1) (parser2) 

SIMPLE_STATEMENT <--> null 3 
--> ASSIGNMENT_STATEMENT 
--> PROCEDURE_CALL_STATEMENT 
--> exit EXIT_STATEMENT 
--> return RETURN_STATEMENT 
--> goto GOTO_STATEMENT 
--> delay DELAY_STATEMENT 
--> abort ABORT_STATEMENT 
--> raise RAISE_STATEMENT 
--> ENTRY_CALL_STATEMENT 
--> CODE_STATEMENT 


(5.1) (parserl ) 
STATEMENT --> [ LABEL ?] SIMPLE_STATEMENT 
--> | LABEL 2} COMPOUND_STATEMENT 


(6.3) (parserl) 
SUBPROGRAM_BODY --> new NAME [ GENERIC_ACTUAL_PART ?] 35 
--> separate 3} 
--> <> 4 
--> [ DECLARATIVE_PART ?] begin SEQUENCE_OF_STATEMENTS 
exception [ EXCEPTION_HANDLER] 7 
end [ DESIGNATOR ?] 
--> NAME 3 


(3.3.2) (parser2) 
SUBTYPE_DECLARATION --> identifier is SUBTYPE_INDICATION 3 


(3.3.2) (parser3) 
SUBTYPE_INDICATION --> NAME [ CONSTRAINT ?] 
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(10.2) (parserD) 
SUBUNIT --> separate (NAME) PROPER_BODY 


(9.1) (parserl) 
TASK_BODY --> identifier is TASK_BODY_TAIL 


(9.1) (parserl ) 
TASK_BODY_TAIL --> separate 
--> [ DECLARATIVE PART ?] begin SEQUENCE_OF_STATEMENTS 
exception [ EXCEPTION_HANDLER] 7] 
end | identifier { 


(9.1) (parserl) 
TASK_DECLARATION --> body TASK_BODY } 3 
--> [ type ?] identifier [ is [ ENTRY_DECLARATION 
[ REPRESENTATION_CLAUSE{” end [ identifier ?] ?] 5 
(4.4) (parser3) ie 
TERM --> FACTOR [ MULTIPLYING_OPERATOR FACTOR] 


(3.3.1) (parser2) 
TYPE_DECLARATION --> identifier [ DISCRIMINANT_PART ?] 
[ is PRIVATE_TYPE_DEFINITION ?] 5 
--> identifier [ DISCRIMINANT_PART ?] 
[ is TYPE_DEFINITION 7] ; 


(3.3.1) (parser2) 
TYPE_DEFINITION --> ENUMERATION_TYPE_DEFINITION 
--> INTEGER_TYPE_DEFINITION 
--> digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
--> delta FLOATING_OR_FIXED_POINT_CONSTRAINT 
--> array ARRAY_TYPE_DEFINITION 
--> record RECORD_TYPE_DEFINITION 
--> access SUBTYPE_DEFINITION 
--> new SUBTYPE_INDICATION 


(3.7.3) (parser2) ae 
VARIANT --> when CHOICE [ | CHOICE] => COMPONENT_LIST 


(3.7.3) (parser2) . 
VARIANT_PART --> case identifier is [ VARIANT]” end case 5 


(10.1.1) (parser2) rs 
WITH_OR_USE_CLAUSE --> identifier [ , identifier]™ 3 
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APPENDIX B 
‘ADAMEASURE’ USERS GUIDE 


1. Once you have logged on a VT100 terminal, type RUN DEMON to begin execution 
of ‘AdaMeasure’. The initial screen gives the general information about the program. 


FH HEHE IE HE HE ETE EE HEHE IEE HEE IEE FE DE IE IEE DHE FE JE IE IE IE HE IEE FE IEE FEE ENE HE HEE HE HE HIE HEHE HEHE HEHE HEE HIE HEH HH HHH HHH 


WELCOME TO ‘AdaMEASURE ' 


AUTHORED BY: LCOR JEFFREY L. NIEDER, USN 
LT KARL S. FAIRBANKS , USN 


NAVAL POSTGRADUATE SCHOOL 
DEPARTMENT OF COMPUTER SCIENCE 
MONTEREY, CALIFORNIA 


31 OCTOBER 1986 
VERSION 1.0 
This program provides an automated software metric tool which 
uses quantitative measures in an effort to supply the user with 


helpful information about the static structure of a given input 
program. This program is public domain information. 


* K KOK OK KK KK KK KK KK OA OK K OX 
KK KK KK KK K KK KK KOK OK OK OK OX 


ee. ee eS ee et a et td 
--- Enter any letter to continue --- 


2. Enter any letter to continue. This is required because Ada filters out carriage 
returns so just hitting ENTER will not cause execution to continue. The next screen 
shown 1s the MAIN SELECTION MENU. From here the user enters the digits 1, 2 
or 3 to either parse a file, view previously gathered data, or quit to the operating 
system, respectively. 

HHH HHI IEE EE IEE FE FETE HEHEHE IEEE FEE HE HE IE FE HE IE DE FE FE IE IE FETE FE HE IEE IESE HEHE HE IE IE TE DE FE IE HE HEIL TE HE ETE TE DE HEHE FE HE IESE FE FE HE TE HE HE HE DE FEE 

MAIN SELECTION MENU 

HERE ARE THE ACTION CHOICES AVAILABLE TO YOU 

Simply enter the number of your choice 
1 - PARSE AN INPUT FILE 
2 - VIEW PREVIOUSLY GATHERED DATA 


3 - EXIT TO OPERATING SYSTEM 


* K KK KK K K OK OK OK OK OK 
* K® KK K KK OK OK OK OK OK OX 


HEHE HEHEHE HEHE HEHEHE IEE IEE IEE IE HE IEE EIEIE HEE IEE HE FEIEIE IE IE FE IE FE FE IE ESE 3E IE 36 9G FE IE EE 36 IEE IE FE IESE IE IEIE EIDE IE IE 9E IE SESE 36 3E IEEE 9E EE FETE 
Choice = 


3. If the user selects number one then he will be prompted for the file name of the file 
he wishes to have parsed. While parsing of the file is in progress, the user will see a 


message on the screen indicating at what line number, in the input file, the parser has 
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reached. When parsing of the input file commences, ‘AdaMeasure’ creates four new 
files. The four files have the same name as the user’s input file with the following 
extensions: fn.DATA, fn.HALS, fn.RAND, fn.MISC. The meaning of each of these 


new files will be explained later in this user’s guide. 


4. Upon conclusion of parsing the input file, or if the user selects number two from 
fgeeeAlN SELECTION MENU, the program displavs the METRIC SELECTION 
PROGRAM. From this menu. the user can select any of the listed metrics, exit to the 
Meee SELECTION MENU, or exit to the operating svstem. 


HAHEI HEHE HEHEHE HEH HEHEHE HE EK HE IEE HH HE HEHEHE HEH IH HEE HEHEHE EHH HEHE HEHE HEH HE HEHE HEHE HEHEHE HEHE HEHEHE HEHE HEHEHE HE HH HH HEME H 


a 


METRIC SELECTION MENU 
HERE ARE THE INFORMATION CHOICES AVAILABLE TO YOU 
Simply enter the number of your choice 


~ ‘HALSTEAD' METRIC INFORMATION 


4 


2 ~ COMMENT SND NESTING METRIC INFORMATION 
3 - 'HENRY and KAFURA‘S METRIC INFORMATION 


4 - EXIT TO MAIN MENU 


KR Kh K KR KR ARK KK KK OK 


5 - EXIT TO OPERATING SYSTEM 


eK A KK RK KKK KK KK KK XK 


~*~ 


HH KHHH HHH HII EIEIO HEISEI IEE EEE ERE 36 ESE AE IEE IE IESE IE 26 EE IE IE IE IE IE IE IE FE AEE IE HE HEE IEE EDEL DE IE IE FEE 26 EE 99 6 96 39 EEE 
Choice = 


5. If number one 1s selected, the Halstead Metric choice, the next menu displayed 1s 
the HALSTEAD SELECTION MENU. From this menu, the calculations and 
conclusions of the Halstead Metric can be selected. There also exists the options of 
Emme to the METRIC SELECTION MENU, or exiting to the operating svstem. 

HH HH HEHEHE HEH HHH HH HH HEHEHE HHH HEH HEHE HEHEHE HIE HEHEHE IH HEHE HEH HE HEHEHE HEHEHE HE HH HHH HIE HH HEHEHE HH HEHE HH HH HH HHH 


HALSTEAD SELECTION MENU 


HERE ARE THE HALSTEAD METRIC OPTIONS AVAILABLE TO YOU 
Simply enter the number of your choice 

HALSTEAD OPERATORS 

2 - HALSTEAD OPERANDS 

3 - HALSTEAD METRIC CONCLUSIONS 

G4 - EXIT TO METRIC SELECTION MENU 


5 - EXIT TO OPERATING SYSTEM 


KK K K KK KK K K KK K KK K K OK 
row] 
' 

*K K K KK K KK K K K K K OK K K OK OX 


HHH HHH HEHEHE HIE HEHEHE IEE IEEE EEE IE IEE IEE FE IEE IESE IE IEE EEE IEEE HEE IE IESE SESE SE HEE IESE IE IE IEE IESE SEE IE HEHEHE HEHEHE IEE IEEE 
Choice = 
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6. From the HALSTEAD SELECTION MENU, if mumber one is selectea@aime 
Halstead operator data is displayed. The operator data is stored in the fn.DATA file. 
The Halstead operator data includes the total number of different operators used, the 
total number of occurences of those operators, and the number of occurences of each 


individual operator. 


7. If number two from the HALSTEAD SELECTION MENU is choseneiiie 
HALSTEAD OPERAND SELECTION MENU 1s displayed. From this meniaaaie 
different classes of operands and their data can be selected for viewing. Also available 
for selection are exiting to the HALSTEAD SELECTION MIENU, and exitiiesieei 
Operating svstem. 

EH HEH HEHE IE IE HE EH HEHE LIE HE IEE HEHE SE IE EE EE IE HE IE IE HEE IE IE IE HEHE EE IE IE HE HE IE HE IE EEE IE IE HE ETE IE IE IE SE SE HE IE IE IE HEHE HE HE HE HE HE HEHEHE HE HEH 


HALSTEAD CPERAND SELECTION MENU 


HERE IS THE CPERAND OATA AVAILABLE 
Simply enter the numoder of your choice 
lL - PROCEDURE, FUNCTION, PACKAGE INFORMATION 
2 - VARIABLES AND CONSTANTS INFORMATION 
3 - TASKS AND BLOCKS INFORMATION 


4 - EXIT TO HALSTEAD SELECTION MENU 


KK KK KK KR KR OK OK KA OK K KOK OK 


5 - EXIT TO OPERATING SYSTEM 


KK KK KK KR RR A OK OK OK KK OK KOK 


* 
HHH HII IH HII HEHE HEHEHE IEEE IEEE IE ESE EE EE SEE IE IE SESE IE IE IEEE IE IESE IE IE HE EEE HE EFC EE IEE BEE SEE EEE EE IESE IEE HEE 9 9E EEE 
Choice = 


8. From the HALSTEAD OPERAND SELECTION MENU, selection of anveenune 
operand calasses will show each identifier and number of occurences of for that 


particular class. The data for all operand classes 1s stored in the fn.RAND file. 


9. Back to the HALSTEAD SELECTION MENU. If the selection is number three; 
the Halstead Metric conclusions are displayed. The conclusions include the input file’s 
calculated theoritical length, its actual length, the difference between the two lengths, 
and some comments about that difference. The Halstead Metric conclusion data is 
stored in the fn.HALS file. 


10. Back to the METRIC SELECTION MENU. If the selection number is two, the 
comment and nesting metric information is displayed on the screen. The comment 


metric information includes the total number of lines in the input file, the total number 
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of comment lines, a percentage of lines of comments to lines of code, and some 
observations about that percentage. The nesting metric information contains the type 
and total occurences of nesting contructs used in the input file, the deepest level of 
nesting parsed, and how many times each nesting level, up to the deepest, was 
encountered. The comment and nesting metric information is stored in the fn. MISC 
ies 


fieeeae final choice in the METRIC SELECTION MENU is the Henry and Kafura 
Complexity Flow Metric. At present, this metric is not implemented. Ongoing 
development of “‘AdaMeasure’ includes plans to implement this metric as well as other 


Metrics and Ada tools. 
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APPENDIX C 
‘ADAMEASURE’ PROGRAM LISTING - PART 1 


3} BOBBIE BIE RBI RHE BBR BEBE BEE EERE GEE BREEN EEE EEE = = 
== PIP ee: AN ADA SOFTWARE METRIC a 


-- MODULE NAME: PACKAGE BYPASS_FUNCTION = 
=—- PATE CREATED: 25 JUL 86 —- 
-- LAST MODIFIED: 93 DEC 36 -- 


-- AUTHORS: LCOR JEFFREY L. NIEDER = 
roan LT KARL S. FAIRBANKS, JR. -- 


-- DESCRIPTION: This package contains the workhorse function -- 
-- required to identify each individual token. -- 


KH H HH HHH HH HHH AHH HE HAH HAH HE HHH HEI HHH HE HEHEHE HIE HEHE HEHEHE HH HH HHH HHH HKHKHKHK HOM 


with HALSTEAD_METRIC, BYPASS_SUPPORT_FUNCTIONS, GLOBAL, GLOBAL_PARSER; 
use HALSTEAD_METRIC, BYPASS_SUPPORT_FUNCTIONS, GLOBAL, GLOBAL_PARSER} 


package BYPASS FUNCTION is 
function BYPASS( TOKEN_ARRAY_ENTRY_CODE : integer) return boolean; 
procedure CONDUCT_RESERVE_WORD_TEST{CONSUME : in out boolean); 
end BYPASS_FUNCTION; 


package body BYPASS_FUNCTION is 


-- this function compares the lexeme of the current token with the 
-- token currently being sought by the parser. If the current token 
-- type is identifier, then a test is conducted to ensure it is not 
-- a reserved word. 

function BYPASS(TOKEN_ARRAY_ENTRY_CODE : integer) return boolean is 
CONSUME : boolean := FALSE; 


LEXEME : string(1..LINESIZE }3 
Size : natural; 
begin 


GET_CURRENT_TOKEN_RECORD( CURRENT_TOKEN_RECORD, LEXEME_LENGTH )3 
LEXEME := CURRENT_TOKEN_RECORD.LEXEME 3 
SIZE := CURRENT_TOKEN_RECORD.LEXEME_SIZE - 13 


case TOKEN_ARRAY_ENTRY_CODE is 
when TOKEN_IDENTIFIER => 

1f (CURRENT_TOKEN_RECORD.TOKEN_TYPE = IDENTIFIER) then 
CONSUME ;:= TRUE3 
CONDUCT_RESERVE_WORD_TEST (CONSUME )3 

end if} 

1f (CONSUME) then 
CONVERT_UPPER_CASE(LEXEME, SIZE )3 
OPERAND_METRIC{ HEAD_NODE, CURRENT_TOKEN_RECORD, DECLARE_TYPE }3 
DECLARE_TYPE := VARIABLE_DECLARE; 

end if3 


when TOKEN_NUMERIC_LITERAL => 
if (CURRENT_TOKEN_RECORD.TOKEN_TYPE = NUMERIC_LIT) then 
CONSUME ;:= TRUE3 
DECLARE_TYPE := CONSTANT_DECLARE;3 
OPERAND_METRIC( HEAD_NODE, CURRENT_TOKEN_RECORD, DECLARE_TYPE }3 
DECLARE_TYPE := VARIABLE_DECLARE 3 
end if} 
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when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


TOKEN_CHARACTER_LITERAL => 


if (CURRENT_TOKEN_RECORD.TOKEN_TYPE 


CONSUME ;:= TRUE} 
end if3 


TOKEN_STRING_LITERAL => 


if (CURRENT_TOKEN_RECORD.TOKEN_TYPE 


CONSUME := TRUE} 
end if; 


TOKEN_END => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
end iT} 


TOKEN BEGIN => 
if ee novus) OLEXEME‘ LEXEME, SIZE) = 
CONSUME := TRUE; 
end ifs 


TOKEN_IF => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUEs$ 
end if3 


TOKEN_THEN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
anda ifs 


V 


ROSEN CLSir = 

if (ADJUST_LEXEME(LEXEME, SiZE)} = 
CONSUME := TRUE; 

end iT} 


TOKEN_ELSE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUES$ 
end if} 


TOKEN_WHILE => 
1 (ADJUST_LEXEME(LEXEME, SIZE} = 
CONSUME := TRUE} 
end if3 


TOKEN_LOOP => 
if (ADJUST_LEXEME(LEXEME, SIZE} = 
CONSUME := TRUE} 
end if; 


TOKEN_CASE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUES$ 
end ifs 


TOKEN_WHEN => 
if (ADJUST_LEXEME(LEXEME, SIZE} = 
CONSUME := TRUES$ 
end ifs 


TOKEN_DECLARE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE$ 
end ifs 


TOKEN_FOR => 


if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
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CHARACTER_LIT) then 


STRING_LIT) then 


“end'') then 


"Segin') then 


"if") then 


*then'") then 


"“aisif"3} then 


“else") then 


“while") then 


"“loop") then 


"case") then 


“when") then 


"declare") then 


“for'") then 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


end if} 


TOKEN_OTHERS => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE3 
end if; 


TOKEN_RETURN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end ifs 


TOKEN_EXIT => 
tf (ADJUST SEEXEME(CLEXEME size — 
CONSUME := TRUE>s 
end 173 


TOKEN PROCEDURE => 
if tADJUST_LEXEME(LEXEME, SIZE} = 
CONSUME := TRUE; 
end if; 


TOKEN_FUNCTION => 
if (ADJUST_LEXEME( LEXEME, SIZE) = 
CONSUME := TRUE; 
and its 


TOKEN_WITH => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
and its 


TOKEN_USE => 
1f (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end if} 


TOKEN_PACKAGE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end if} 


TOKEN_BODY => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end if; 


TOKEN_RANGE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end if} 


TOKEN_IN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end if} 


TOKEN_OUT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME ;:= TRUE} 
end ifs 


TOKEN_SUBTYPE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE} 
end ifs 


TOKEN_TYPE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = 
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“others") then 


"return") then 


"exit" ) then 


“orocedure’') then 


“function') then 


with") then 


"wise ) then 


"package") then 


"body" ) then 


“range") then 


"in") then 


"out") then 


“subtype") then 


“type") then 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


when 


CONSUME := TRUE} 
end if}; 


TOKEN_IS => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if} 


TOKEN_NULL => 
if (ADJUST_LEXEME( LEXEME , 
CONSUME := TRUE} 
end if} 


TOKEN_ACCESS => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if; 


TOKEN_ARRAY => 
if (ADJUST_LEXEME( LEXEME ,» 
CONSUME := TRUE; 
end if}; 


TOKEN_DIGITS => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if; 


TOKEN_DELTA => 
if (ADJUST_LEXEME(LEXEME, 
CONSUME := TRUE; 
end if; 


TOKEN_RECORD_STRUCTURE => 
if (ADJUST_LEXEME(LEXEME, 
CONSUME := TRUE; 
end if; 


TOKEN_CONSTANT => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if} 


TOKEN_NEW => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if}; 


TOKEN_EXCEPTION => 
if (ADJUST_LEXEME( LEXEME , 
CONSUME := TRUE} 
end if; 


TOKEN_RENAMES => 
if (ADJUST_LEXEME( LEXEME , 
CONSUME := TRUE} 
end ifs 


TOKEN_PRIVATE => 
if (ADJUST_LEXEME( LEXEME , 
CONSUME := TRUE}; 
end if; 


TOKEN_LIMITED => 
if (ADJUST_LEXEME(LEXEME , 
CONSUME := TRUE} 
end if; 


TOKEN_TASK => 


SLZE ) 


SIZE) 


SIZE ) 


SIZE) 


SIZE} 


SIZE ) 


SIZE } 


SIZE } 


SIZE } 


SIZE ) 


SIZE) 


SIZE }) 


SIZE ) 
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“is") then 


"“null") then 


“access") then 


“array") then 


"“digits") then 


"delta") then 


"“record") then 


“csonstant") then 


“new'') then 


"exception" ) then 


“"renames") then 


“private") then 


“limited") then 


if (ADJUST_LEXEME(LEXEME, SIZE) = “"task"') then 
CONSUME := TRUE3 
end if} 


when TOKEN_ENTRY => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “entry") then 
CONSUME := TRUE; 
end if; 


when TOKEN_ACCEPT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "“accept") then 
CONSUME := TRUE} 
end if; 


when TOKEN_OELAY => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "“delay") then 
CONSUME := TRUE; 
end ifs 


when TOKEN_SELECT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “select") then 
CONSUME := TRUE} 
end if} 


when TOKEN_TERMINATE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "terminate") then 
CONSUME := TRUE} 
end if3 


when TOKEN_ABORT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "abort") then 
CONSUME ;:= TRUE; 
end ifs 


when TOKEN_SEPARATE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “separate") then 
CONSUME := TRUE3 
end if} 


when TOKEN_RAISE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “raise") then 
CONSUME := TRUE} 
end if} 


when TOKEN_GENERIC => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “generic") then 
CONSUME := TRUE} 
end if} 


when TOKEN_AT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "“at") then 
CONSUME := TRUE} 
end if} 


when TOKEN_REVERSE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "reverse") then 
CONSUME := TRUE} 
end ifs 


when TOKEN_DO => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "do'') then 
CONSUME := TRUE} 
end if}; 


when TOKEN_GOTO => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "goto') then 
CONSUME := TRUE} 
end if} 
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when 


when 


when 


when 


when 


wnen 


when 


when 


when 


when 


when 


when 


TOKEN_OF => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "of") then 
CONSUME :;:= TRUE} 
end if; 


TOKEN_ALL => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “all") then 
CONSUME := TRUES} 
end if; 


TOKEN_PRAGMA => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “pragma'") then 
CONSUME := TRUE; 
end if; 


TOKEN_AND => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “and"} then 
CONSUME := TRUE; 
end ifs 
OPERATOR_METRIC( TOKEN_AND, CONSUME, RESERVE_WORD_TEST }5 


TOKEN_OR => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “or'') then 
CONSUME := TRUE3 
and ifs 


OPERATOR_METRIC( TOKEN_OR, CONSUME, RESERVE_WORD_TEST )5 


TOKEN_NOT => 
it (ADJUST_LEXEME(LEXEME, SIZE} = “nort'™) then 
CONSUME := TRUE; 
and if; 
OPERATOR_METRIC{! TOKEN_NOT, CONSUME, RESERVE _WORD_TEST}; 


TOKEN_XOR => 


tf (ADJUST _LEXEME(LEXEME, SIZE) = “xor') then 
CONSUME :;:= TRUE; 
end if} 


OPERATOR_METRIC( TOKEN_XOR, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_MOD => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "mod") then 
CONSUME ;= TRUES$ 
end if} 
OPERATOR_METRIC( TOKEN_MOD, CONSUME, RESERVE_WORD_TEST )35 


TOKEN_REM => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “rem") then 
CONSUME := TRUES$ 
end if} 
OPERATOR_METRIC( TOKEN_REM, CONSUME, RESERVE_WORD_TEST }3 


TOKEN_ABSOLUTE => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "abs") then 
CONSUME ;:= TRUE3 
end ifs 
OPERATOR_METRIC( TOKEN_ABSOLUTE , CONSUME, RESERVE_WORD_TEST )3 


TOKEN_ASTERISK => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "*") then 
CONSUME ;:= TRUE$ 
end if} 
OPERATOR_METRIC( TOKEN_ASTERISK, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_SLASH => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "/") then 
CONSUME := TRUE} 
end if} 
OPERATOR_METRIC( TOKEN_SLASH, CONSUME, RESERVE_WORD_TEST )5 
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when 


when 


when 


when 


when 


wnen 


when 


when 


when 


when 


when 


when 


TOKEN_EXPONENT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "xx") then 
CONSUME := TRUE+$ 
end ifs 
OPERATOR_METRIC( TOKEN_EXPONENT, CONSUME, RESERVE _WORD_TEST )}3 


TOKEN_PLUS => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "+") then 
CONSUME := TRUE} 
end if} 
OPERATOR_METRIC{ TOKEN_PLUS, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_MINUS => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "=-") then 
CONSUME := TRUE; 
and ifs 


OPERATOR_METRIC( TOKEN_MINUS, CONSUME, RESERVE _'SORD_TES7 }5 


TOKEN_&MPERSAND => 
if (ADJUST _LEXEME( LEXEME, SIZE) = “@")) then 
CONSUME := TRUE; 
end ifs 
OPERATOR_METRIC( TOKEN_AMPERSAND, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_=QUALS => 
if (ADJUST_LEXEME( LEXEME, SIZE) = “=“) then 
CONSUME := TRUE; 
and ifs 


OPERATOR_METRIC{ TOKEN_=QUALS, CONSUME, RESERVE_WORD_TEST }3 


TOKEN_NOT_EQUALS => 
if \ADJUST_LEXEME( LEXEME, SIZE) = “/7="") then 
CONSUME := TRUE; 
end if; 


OPERATOR_METRIC( TOKEN_NOT_=ZGUALS, CONSUME, RESERVE_WORD_TEST }3 


TOKEN_LESS_THAN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "<") then 
CONSUME := TRUE} 
end if} 
OPERATOR_METRIC( TOKEN_LESS_THAN, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_LESS_THAN_EQUALS => 
if (ADJUST_LEXEME( LEXEME, SIZE) = “<=") then 
CONSUME := TRUE$ 
end if3 
OPERATOR_METRIC( TOKEN_LESS_THAN_EQUALS, CONSUME, RESERVE_WORD_TEST )3 


TOKEN_GREATER_THAN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = ">") then 
CONSUME := TRUE} 
end if3 
OPERATOR_METRIC( TOKEN_GREATER_THAN, CONSUME, RESERVE_WORD_TEST )}3 


TOKEN_GREATER_THAN_EQUALS => 
if (ADJUST_LEXEME(LEXEME, SIZE) = ">=") then 
CONSUME := TRUE$ 
end ifs 
OPERATOR_METRIC( TOKEN_GREATER_THAN_EQUALS,» CONSUME, RESERVE_WORD_TEST )}3 


TOKEN_ASSIGNMENT => 
if (ADJUST_LEXEME(LEXEME, SIZE) = ":=") then 
CONSUME := TRUE} 
end if} 
OPERATOR_METRIC( TOKEN_ASSIGNMENT » CONSUME, RESERVE_WORD_TEST )3 


TOKEN_COMMA => 


if (ADJUST_LEXEME( LEXEME, SIZE) = ",") then 
CONSUME := TRUE}$ 


a2 


end ifs 


when TOKEN_SEMICOLON => 
if (ADJUST_LEXEME( LEXEME, SIZE) = "3") then 
CONSUME := TRUE} 
end if} 


when TOKEN_PERIOD => 


if (ADJUST_LEXEME(LEXEME, SIZE) = ".") then 
CONSUME := TRUE} 
end if} 


when TOKEN_LEFT_PAREN => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "('") then 
CONSUME := TRUE; 
end if; 


when TOKEN_RIGHT_PAREN => 


if (ADJUST_LEXEME(LEXEME, SIZE) = ")"') then 
CONSUME := TRUE} 
end if; 


when TOKEN_COLON => 


if (ADJUST_LEXEME(LEXEME, SIZE) = ":") then 
CONSUME := TRUE} 
end if3 


when TOKEN_APOSTROPHE => 


if (ADJUST_LEXEME(LEXEME, SIZE) = "'') then 
CONSUME := TRUE} 
end if3 


when TOKEN_RANGE_DOTS => 


if (ADJUST_LEXEME(LEXEME, SIZE) = "..') then 
CONSUME := TRUE; 
end if} 


when TOKEN_ARROW => 


if (ADJUST_LEXEME(LEXEME, SIZE) = "=>") then 
CONSUME := TRUE; 
end ifs 


when TOKEN_BAR => 


if (ADJUST_LEXEME(LEXEME, SIZE) = " ") then 
CONSUME := TRUE} 
end if} 


when TOKEN_BRACKETS => 
if (ADJUST_LEXEME(LEXEME, SIZE) = "<>") then 
CONSUME := TRUES3} 
end ifs 


when TOKEN_LEFT_BRACKET => 
if (ADJUST_LEXEME(LEXEME, SIZE) = “<<'") then 
CONSUME := TRUE} 
end if3 


when TOKEN_RIGHT_BRACKET => 
if (ADJUST_LEXEME(LEXEME, SIZE) = ">>") then 
CONSUME := TRUE} 
end if3 


when others => nulls 
end case} 


ADJUST_TOKEN_BUFFER( CONSUME, RESERVE_WORD_TEST )3 


return (CONSUME )}3 
end BYPASS} 


a5 


~- this procedure tests all identifiers to 


-- words. The most common reserved words are tested first and the process 
-- halts when a match is made or the test 


fails. 
procedure CONDUCT_RESERVE_WORD_TEST(CONSUME : in out boolean) is 
begin 


RESERVE_WORD_TEST := TRUE} 
for RESERVE_WORD_INDEX in TOKEN_END..TOKEN_ABSOLUTE loop 
if (BYPASS(RESERVE_WORD_INDEX)) then 
CONSUME := FALSE; 
end if; 
exit when not CONSUME 5 
end loops 
RESERVE_WORD_TEST := FALSE$ 
end CONDUCT_RESERVE_NORD_TEST 3 


verify they are not reserved 


end BYPASS_FUNCTION}s 
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= TLILE: AN ADA SOFTWARE METRIC =o 


-- MODULE NAME: PACKAGE BYPASS_SUPPORT_FUNCTIONS == 
-- DATE CREATED: GZe0GT 86 mo 
-- LAST MODIFIED: 03 DEC 86 -- 


-- AUTHORS: LCOR JEFFREY L. NIEDER a= 
3S LT KARL S. FAIRBANKS, JR. == 


-- DESCRIPTION: This package contains the procedures and => 
-- function required to support the function BYPASS. -- 


EM HEHEHE HIE HEHE FEI HEHEHE EME SEE IE HE HEHEHE HEI EEE EEE HK HIKE HEH HHH HHH HHH MK MK 


with SCANNER, GLOBAL, GLOBAL_?2ARSER, TEXT_IO+s 
use SCANNER, GLOBAL, GLOBAL_PARSER, TEXT _I0+3 


package 3YPASS SUPPORT_FUNCTIONS is 
package NEW_INTEGER_IO is new TEXT_I0O.INTEGER_IO( integer }3 
use NEW_INTEGER_I0O3 


procedure GET_CURRENT_TOKEN_RECORD 
(CURRENT _TOKEN_RECORD : in out TOKEN_RECORD_TYPEs 
LEXEME_LENGTH : in out integer )}3 
procedure TRACE( TRACE TOKEN : in strings 
CONSUME, RESERVE_WORD_TEST : in boolean}; 
procedure ADJUST_TOKEN_SUFFER( CONSUME, RESERVE_WORD_TEST : in boolean)s 
function ADJUST_LEXEME( INPUT_“_EXEME : string; SIZE : natural) return string; 
proceaure CONVERT_LONER_CASE( INPUT_LEXEME : in out strings 
LENGTH : in out integer )3 
procedure CONVERT_UPPER_CASE( INPUT_LEXEME : in out string; 
LENGTH : in out integer }3 
end BYPASS _SUPPCRT_FUNCTIONS} 


package body BYPASS_SUPPORT_FUNCTIONS is 


-- this procedure handles the loading of the token record buffer, flushes 
-- out comments (while Keeping count of them) and separators, and prints 
-- out the current line being parsed to the screen. 
procedure GET_CURRENT_TOKEN_RECORD 
{CURRENT_TOKEN_RECORD : in out TOKEN_RECORD_TYPE3 
LEXEME_LENGTH : in out integer) is 
DISPLAY_DELAY : constant integer := 2503 
begin 
if (FIRST_TIME_LOAD) then 
while (PLACE _HOLDER_INDEX /= TOKEN_ARRAY_SIZE + 1) loop 
1f not (END_OF_FILE(TEST_FILE)) then 
GET_NEXT_TOKEN( TOKEN_RECORD ) 3 
1f {{TOKEN_RECORD.TOKEN_TYPE /= SEPARATOR) and 
{ TOKEN_RECORD.TOKEN_TYPE /= COMMENT )) then 
TOKEN_RECORD_BUFFER{ PLACE_HOLDER_INDEX) := TOKEN_RECORD3 
PLACE_HOLDER_INDEX := PLACE_HOLDER_INDEX + 13 
elsif ({TOKEN_RECORD.TOKEN_TYPE = COMMENT) then 
COMMENT_COUNT := COMMENT_COUNT + 13 
end if; 
else 
TOKEN_RECORD_BUFFER{PLACE_HOLDER_INDEX).TOKEN_TYPE := ILLEGAL} 
TOKEN_RECORD_BUFFER{ PLACE_HOLDER_INDEX).LEXEME_SIZE := 13 
PLACE_HOLDER_INDEX := PLACE_HOLDER_INDEX + 13 
end if} 
end loop; 
FIRST_TIME_LOAD := FALSE3 
FULL := TRUE} 
PLACE_HOLDER_INDEX := 13 
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elsif ((TOKEN_ARRAY_INDEX = 0) and (not (FULL))) then 
TOKEN_RECORD_BUFFER(0) := TOKEN_RECORD_BUFFER( TOKEN_ARRAY_SIZE )3 
while (PLACE_HOLDER_INDEX /= TOKEN_ARRAY_SIZE + 1) loop 
if not (END_OF_FILE(TEST_FILE)) then 
GET_NEXT_TOKEN( TOKEN_RECORD ) 5 
if ((TOKEN_RECORD.TOKEN_TYPE /= SEPARATOR) and 
( TOKEN_RECORD.TOKEN_TYPE /= COMMENT )) then 
TOKEN_RECORD_BUFFER( PLACE_HOLDER_INDEX) := TOKEN_RECORD} 
PLACE_HOLDER_INDEX := PLACE_HOLDER_INDEX + 13 
elsif (TOKEN_RECORD.TCKEN_TYPE = COMMENT) then 
COMMENT_COUNT := COMMENT_COUNT + 13 


end if; 

else 
TOKEN_RECORD_BSUFFER( PLACE YOLDER_INDEX).TOKEN_TYPE := ILLEGAL; 
TOKEN _RECORD_SUFFER( PLACE AOLDERD LHDEX Ges Eemee osteo): = 2; 


PLACE HOLDER_INDEX := PLACE_HOLDER_INDEX + 1; 
end i73 
and loop; 
PLACE_HOLDER_ZNDEX := 13 
FULL := TRUE$ 
end if; 


if not (RESERVE_WORD_TEST) then 
CURRENT_TOKEN_RECORD := TOKEN_RECORD_3UFFER( TOKEN_ARRAY_=Z=NDEX )3$ 
end ifs 


LEXEME_LENGTH := CURRENT_TOKEN_RECORD.LEXEME_SiZE - 13 

if (CURRENT_TOXEN_RECORD.TOKEN_TYPE = TDENTIFIER) then 
CONVERT_LOWER_CASE(CURRENT_TOKEN_RECORD.LEXEME, LEXEME_LENGTH )3$ 

and if3 


STATUS_COUNTER := STATUS_COUNTER + 1; 

if (STATUS_COUNTER = OISPLAY_DELAY) then 
new_lines 
CLEARSCREEN3 
CONVERT_UPPER_CASE(DATA_FILE_NAME, DATA_FILE_SIZE )3 
put("Parse of ")3} put(ADJUST_LEXEME( DATA_FILE_NAME, DATA_FILE_SIZE ))3 
put(" in progress, at line number ")3 put( TOTAL_LINES_INPUT, 3)3 
STATUS_COUNTER := 03 

end if} 

end GET_CURRENT_TOKEN_RECORD} 


procedure TRACE(TRACE_TOKEN : in string} 
CONSUME, RESERVE_WORD_TEST : in boolean) is 
begin 
if (CONSUME) and then not (RESERVE_WORD_TEST) then 
put(RESULT_FILE, “Parsed aln) ")3 
put(RESULT_FILE, TRACE_TOKEN)3} 
new_line( RESULT_FILE )3 
end if} 
end TRACE} 


-- this procedure adjusts the pointer to the token record buffer. 
procedure ADJUST_TOKEN_BUFFER( CONSUME, RESERVE_WORD_TEST : in boolean) is 
begin 

if ( (CONSUME) and not (RESERVE_WORD_TEST)) then 

TOKEN_ARRAY_INDEX := (TOKEN_ARRAY_INDEX + 1) mod 503 
if (TOKEN_ARRAY_INDEX = 0) then 

FULL := FALSE} 
end if3 

end if} 
end ADJUST_TOKEN_BUFFER} 


-- this function takes as input the 132 character input_lexeme and generates 
-- a variable length string based on the actual size of the input_lexeme. 
function ADJUST_LEXEME( INPUT_LEXEME : strings SIZE : natural) return string is 
subtype LEXEME_BUFFER is string(1..SIZE)3 
ADJUSTED_LEXEME : LEXEME_BUFFERs$ 
begin 
for I in 1..SIZE loop 
ADJUSTED_LEXEME(I) := INPUT_LEXEME(I)3 
end loop; 
return (ADJUSTED_LEXEME )3 
end ADJUST_LEXEME 3 
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procedure CONVERT_LOWER_CASE(INPUT_LEXEME : in out string; 
LENGTH : in out integer) is 
CONVERSION_FACTOR : constant integer := 323 
-- difference between upper case and lower case letters in ASCII 
LETTER_VALUE : integer; 
begin 
for I in 1..LENGTH loop 
if (INPUT_LEXEME(I) in UPPER_CASE_LETTER) then 
LETTER_VALUE := character'pos( INPUT_LEXEME(I)) + CONVERSION_FACTOR}$ 
INPUT_LEXEME(I) := character 'val( LETTER_VALUE )} 
end if} 
end loops 
end CONVERT_LOWER_CASE 3 
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procedure CONVERT_UPPER_CASE(INPUT_LEXEME : in out string; 
LENGTH : in out integer) is 
CONVERSION_FACTOR : constant integer := 323 
-- difference between upper case and lower case letters in ASCII 
LETTER_VALUE : integers 
begin 
for I in 1..LENGTH loop 
if (INPUT_LEXEME(I) in LOWER_CASE_LETTER) then 
LETTER_VALUE := character 'pos( INPUT_LEXEME(I)) - CONVERSION_FACTOR} 
INPUT_LEXEME(1I) := character 'val( LETTER_VALUE )3 
end ifs 
end loops 
end CONVERT_UPPER_CASEs$ 


end BYPASS_SUPPORT_FUNCTIONS 5 


Si 
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== 121 CEs AN ADA SOFTWARE METRIC == 


~- MODULE NAME: PROCEDURE DEMON -- 
~~ DATE CREATED: 13 JUN 86 =-- 
-- LAST MODIFIED: 03 DEC 86 -- 


-- AUTHORS: LCDR JEFFREY L. NIEDER == 
== LT KARL S. FAIRBANKS, JR. -- 


-- DESCRIPTION: This procedure is the driver for AdaMeasure. -- 
-- It also contains the exception handler for the entire -- 
-- set of packages which comprise AdaMeasure. -- 
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with MENU_DISPLAY, GLOBAL_PARSER, GLOBAL, TEXT_IO}3 
use MENU_DISPLAY, GLOBAL_PARSER, GLOBAL, TEXT_IO} 


procedure DEMON is 
package NEW_INTEGER_IO is new TEXT_IO.INTEGER_IO( integer }3 
use NEW_INTEGER_IO;} 


begin 
DECLARATION := TRUE3 
INITIAL_MENU3 


exception 
when PARSER_ERROR => put(TOTAL_LINES_INPUT)$ new_lines 
put( "Parser error’ )}3 
when SCANNER_ERROR => put (NEXT_CHARACTER }35 
put(character 'pos{NEXT_CHARACTER))3 new_lines 
put(" Error occured, program halted"); 
when STATUS_ERROR => put("Status error occured at line '")}3 
put( TOTAL_LINES_INPUT )3 
when MODE_ERROR => put("Mode error occured at line ")}3 
put(TOTAL_LINES_INPUT )3 
when NAME_ERROR => put("Name error occured at line ")}3 
put( TOTAL_LINES_INPUT };3 
when USE_ERROR => put("Use error occured at line '"); 
put( TOTAL_LINES_INPUT )3 
when DEVICE_ERROR => put("Device error occured at line ")3 
put( TOTAL_LINES_INPUT )3 
when END_ERROR => put("End error occured at line ")3 
put( TOTAL_LINES_INPUT )3 
when DATA_ERROR => put("Data error occured at line ")}3 
put( TOTAL_LINES_INPUT )3 
when LAYOUT_ERROR => put("Layout error occured at line ');3 


put( TOTAL_LINES_INPUT }3 
when CONSTRAINT_ERROR => put("Constraint error occured at line ");3 
put( TOTAL_LINES_INPUT }3 


when NUMERIC_ERROR => put("Numeric error occured at line ")}3 
put( TOTAL_LINES_INPUT )3 

when STORAGE_ERROR => put("Storage error occured at line ")3 
put( TOTAL_LINES_INPUT }3 

when PROGRAM_ERROR => put("Program error occured at line ')3 
put( TOTAL_LINES_INPUT }3 

when QUIT_TO_OS => CLEARSCREEN3 

when others => put("“Error occured"); 

end DEMON; 
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-- TITLE: AN ADA SOFTWARE METRIC -- 
-- MODULE NAME: DISPLAY_SUPPORT -- 
-- DATE CREATED: 11 OCT 86 -- 
-- LAST MODIFIED: 04 DEC 86 -- 
-- AUTHORS: LCDR JEFFREY L. NIEDER -- 
-- LT KARL S. FAIRBANKS, JR. -- 
-- DESCRIPTION: This package contains the procedures and -- 
-- function for initializing the metric parameters, and -- 
-- supporting the user interface. -- 
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with HALSTEAD_METRIC, GLOBAL _P4RSER, GLOBAL, TEXT_T10}3 
use HALSTEAD_LMETRIC, GLOBAL_PARSER, GLOBAL, TEXT_TO} 


package DISPLAY_SUPPORT is 
procedure GeT_FILENAME(TYPE_PRESENT : in out boolean?}s 
procedure GET_ANSWER( ERROR, FINISHED : in out boolean); 
function ADJUST_EDIT_BUFFER{INPUT_STRING : string; 
FILL_LENGTH : integer) return strings 
procedure RESET_PARAMETERS}3 
end DISPLAY_SUPPORT 3 


package body DISPLAY_SUPPORT is 


-- this is a user intertace support procedure that prompts the user for 
-- the input file name, wnenever the user must select a specific file. 
procedure GET_FILENAME{TYPE_PRESENT : in cut boolean} is 
begin 
TYPE_PRESENT := FALSE3} 
for I in 1..LINESIZE loop 
INPUT_FILE_NAME(I) := ° ' 
WEStoFILE NAME(I) := ° ‘3 
DATA_FILE_NAME(T ) = : 
end loops 


PULL HEEEEEEEE EE EEAEF EEE EEE AEE HEHEHE EEE HEHE ttt ttete te eese" dS 
PUTC +44 4H ttt te ee tttte tet eeettetetete' 5 new_lines 


put(''+ ae 
put(" +")3 new_lines 
putt ''+ Input the name of the file you wish to");5 
put(" analyze +")5 new_lines 
put{(''+ eS 
put(" +"")5 new_lines 


PULL FE FEFE EEE FEE FE EEE EE EEE HEHE eee e eee ttt eet ete tettetete+” dj 
DUL( +44 +eeettee tet etetetteteteete' )§ mew_lines 

new_lines 

put("Filename = ")5 


get_linef INPUT_FILE_NAME, LENGTH_OF_LINE)$ new_linef 2 )35 
for I in 1..LENGTH_OF_LINE loop 
if (INPUT_FILE_NAME(I) = '.') then 
TYPE_PRESENT := TRUES$ 
end ifs 
end loops 


if (TYPE_PRESENT) then 
for I in 1..LENGTH_OF_LINE-4@ loop 
DATA_FILE_NAME(I) := INPUT_FILE_NAME(T )3 
end loops 
TEST_FILE_NAME := INPUT_FILE_NAME} 


DATA_FILE_SIZE := LENGTH_OF_LINE - 4} 


else 
DATA_FILE_NAME := INPUT_FILE_NAME 5 
for I in 1..LENGTH_OF_LINE loop 

TEST_FILE_NAME(I) := INPUT_FILE_NAME(T )3} 

end loop; 
DATA_FILE_SIZE := LENGTH_OF_LINE+$ 

end if; 

end GET_FILENAME ; 
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-- this user interface support procedure ensures that the user answers 

-- the guestion correctly, and determines it the user is tinisned. 
proceaure GET_ANSWER(ERROR, FINISHED : in out booiean? is 
3egin 

FINISHED := false; 

get( ANSWER ); 

if (ANSWER = 'N') or (ANSWER = ‘n') then 

FINISHED := TRUE; 


ERROR := FALSE; -- user correctly said no 
elsif (ANSWER = 'Y') or (ANSWER = 'y') then 

ERROR := FALSE; -- user correctly said yes 
aise 

ERROR := TRUE; ~~ user answered the question incorrectly 
end if; 


end GE7T_ANSWER3 


-- this formatting function solaces the input string in the eqait buffer 
-- and fills the remaining buffer spaces with periods. 
function ADJUST_EDIT_SUFFER( ZINPUT_STRING : strings 
FILL_LENGTH : integer) return string is 
begin 
for I in 1..FILL_LENGTH loop 
EDIT _BUFFER(I) := INPUT_STRING(TI)3 
end loop} 
for I in (FILL_LENGTH+1)..EDIT_LINE_SIZE loop 
EDIT_BUFFER(I) := '.'3 
end loop; 
return (CEDIT_BUFFER )3 
end ADJUST_EDIT_BUFFER; 


-- this procedure resets all of the metric parameters. 
procedure RESET_PARAMETERS is 
begin 
for I in TOKEN_AND..TOKEN_ASSIGNMENT loop 
OPERATOR_ARRAY(I) := 03 
end loops 


for I in IF_CONSTRUCT..CASE_CONSTRUCT loop 
CONSTRUCT_COUNT(I) := Q3. 
end loop; 


for I in FIRST_LEVEL_NEST..MAXIMUM_NESTING loop 
NESTED_COUNT(I) := O}3 


end loops 

TOKEN_ARRAY_INDEX := O03 
PLACE _HOLDER_INDEX 2= O34 
TOTAL_LINES_INPUT 2= 03 
COMMENT _COUNT = 03 
CURRENT_NESTING_LEVEL = 03 
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MAXIMUM_NESTING_LEVEL 
NESTING_LINE_NUMBER 


FIRST_TIME_LOAD 

FULL 

NESTED_LEVEL_INCREASE 
end RESET_PARAMETERSs 


end DISPLAY_SUPPORT} 


0} 
0} 


TRUE 3 
FALSE 3 
TRUE $ 
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LTE: AN ADA SOFTWARE METRIC —— 


MODULE NAME: GENERAL_DATA -- 
DATE CREATED: 14 OCT 86 -- 
LAST MODIFIED: 03 DEC 86 ae 


AUTHORS: LCDR JEFFREY L. NIEDER == 
LT KARL S. FAIRBANKS, JR. -- 


DESCRIPTION: This pacKage contains the procedure to display -- 
the comment count and nesting level metric data. -- 
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with DISPLAY_SUPPORT, HALSTEAD_METRIC, BYPASS_SUPPORT_FUNCTIONS, GLOBAL_PARSER, 


GLOBAL, TEXT_IO3 


use DISPLAY_SUPPORT, HALSTEAD_METRIC, BYPASS_SUPPORT_FUNCTIONS, GLOBAL_PARSER, 


GLOBAL, TEXT_IO$ 


package GENERAL_DATA is 


package NEW_INTEGER_IO is new TEXT_IO.INTEGER_IO( integer ); 
use NEW_INTEGER_IO}3 


package REAL_IO is new TEXT_IO.FLOAT_IO( float )3 
use REAL_I0}3 


procedure VIEW_GENERAL} 


end GENERAL_DATA; 
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package body GENERAL_DATA is 


-- this procedure computes the percentage of comments to total lines of the 


-- input file, and makes recommendations based on that percentage. 


It also 


-- displays what nesting constructs were utilized, and the count of each 


-- nesting level attained up to the maximum nesting level reached. 


procedure VIEW_GENERAL is 


RESULT : floats 
HOLD_CHARACTER : characters} 
COUNT, NEST : integer; 


begin 


GET_FILENAME( TYPE_PRESENT )3 
CLEARSCREEN3 
open(DATA_FILEZ2» in_file,» DATA_FILE_NAME & ".misc'")}3 


CONVERT_UPPER_CASE( DATA_FILE_NAME, DATA_FILE_SIZE )}3 
put(" ms 

put("Comment count data for file ** ")}3 
put(ADJUST_LEXEME( DATA_FILE_NAME, DATA_FILE_SIZE ))} 
put(" x" )3 

new_line}3 


new_line(2)}3 

put( ADJUST_EDIT_BUFFER( "Total number of lines parsed", 28))3 
get(DATA_FILE2, TOTAL_LINES_INPUT, 5)}3 

put{ TOTAL_LINES_INPUT, 5)3 

new_line3 


put(ADJUST_EDIT_BUFFER("Total number of comment lines parsed", 36))3 
get(DATA_FILE2, COMMENT_COUNT, 5)3 

put{COMMENT_COUNT, 5)3 

new_line} 

get_line({DATA_FILE2, DUMMY_FILE_NAME, LENGTH_OF_LINE )}3 


RESULT := (float(COMMENT_COUNT) / float( TOTAL_LINES_INPUT)) * 100.03 
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put(ADJUST_EDIT_BUFFER("Percentage of comments in the file", 34))3 
put(RESULT, 5, 1, 073 
new_line(2)3 


new_line(2)3 

if (RESULT >= 0.0) and (RESULT < 20.0) then 
put("There is a low percentage of comments to the total"); 
new_line} 
put("number of lines in the file. Unless utilization of"); 
new_line3 
put("Ada's extensive variable identification has been"); 
new_line; 
put("applied, there may be too few comments for adequate" )3 
new_lLines 
put(''reader comprehension." > 3 
new_lLines 

elsif (RESULT >= 20.0) and (RESULT < 50.0) then 
put("There is a reasonable numoer of comments to the')}3 
new _lLines 
put("totral numoer of lines in the file. This could help"); 
new_lines 
put("'a reader get a good understanding of the program." )3 
new_lines 

elsif {RESULT >= 50.0) and (RESULT < 85.0) then 
put(''There is a fairly high percentage of somments to the'')3 
new_ Lines 
put("total mnumoer of Lines in the tile. “his could heip‘')s 
new_line3 
put('"tthe reader get a good understanding of the program," )s 
new _lLine} 
sut("Sut could run the risk of onscuring the code in ‘he'')5 
new_lines 
putt "comments." 33 new_lines 


else 
put("There is an extremely high percentage of comments to) 
new_lines 


put("the total number of lines in the file. With this high"); 
new_line; 
put("number of comments, there is possibility of obscuring"); 
new_line} 
put("the code in the comments.")3 
new_line} 
end ifs 
new_line} 
put("It must be clearly understood, that this assessment of comment lines" )3 
new_line; 
put("to lines of code is not a hard and fast rule, but a suggestion that"); 
new_line; 
put("may enhance the understanding of the code. "}3 
new_line(2)3 


new_line(2)3 

put(" --- Enter any letter to continue ---"'); 
new_lines 

get(HOLD_CHARACTER }}3 

CLEARSCREEN} 

put i] Ds 

put("Nesting level data for file ** ")3 

put( ADJUST_LEXEME(DATA_FILE_NAME, DATA_FILE_SIZE } }3 
put( eS te 

new_line; 


put( “sssssssssssssssssssssssssSSssssssssssssSsssssSSSSSSSSSSsSSSSsS=s==")3 
new_line(2)5 

put("DECISION TYPE UTILIZED"); new_lines 
put ( Senn mn rn nn nr rn wn wn rn rn nn nen renee nnn e nn "}3 new_lines 


for I in IF_CONSTRUCT. .CASE_CONSTRUCT loop 
get(DATA_FILE2, COUNT, 5)3 
if (COUNT 7= 0) then 
case I is 
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when IF_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER("IF construct", 12))3 
put(COUNT, 5)3 new_lines 
when LOOP_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER( "LOOP construct", 14))3 
put(COUNT, 5)3 new_lines 
when WHILE_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER( "WHILE construct", 15) )3 
put(COUNT, 5)3 new_line;s 
when FOR_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER("“FOR construct", 13))5 
put(COUNT, 5)3 new_lines 
when CASE_CONSTRUCT => 
put{ ADJUST_ZDIT_3UFFER( “CASE construct", 14));3 
put{COUNT, 5); nmew_Lines 
when others => null; 
end cases 
end ifs 
2nd loop; 
new_lines 


get_line( DATA_FILE2, DUMMY_FILE_NAME, LENGTH_OF_LINE )} 
get(DATA_FILE2, MAXIMUM_NESTING_LEVEL, 5)3 
get_line(DATA_=ILE2, DUMMY_FILE_NAME, LENGTH_OF_LINE)+$ 
get(DATA_FILE2, NESTING_LINE_NUMBER» 5)3 
get_line(DATA_FILE2, DUMMY_fILE_NAME, LENGTH_OF_LINE); 


pnut(AQOJUST_fOLT_BUFFER( "Maximum nesting level", 21))3 
out( MAXIMUM_NESTING_LEVEL, 523 
new _lLines 


out( ADJUST_EDIT_BUFFER( "Initial occurence iine numoer'', 29))% 
put(NESTING_LINE_“IUMBER, S335 
new_line(2)3 


for I in FIRST_LEYEL_NEST..MAXIMUM_NESTING_LEVEL loop 
get(DATA_FILE2, NEST, 5)3 
put("Total nesting ")3 put(I, 2)3 put("' deep occured" )} 
put(NEST, 3)3 put(" times.')3 new_lines 

end loop; 

new_line(2)3 

put(" --- Enter any letter to continue ---")}3 

new_line; 

get( HOLD CHARACTER); 

get_line(DATA_FILE2, OUMMY_FILE_NAME, LENGTH_OF_LINE }3 


close(DOATA_FILE2 )} 
end VIEW_GENERALS$ 


end GENERAL_DATA;s 
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~- MODULE NAME: PACKAGE GET_NEXT_CHARACTER a 
-- DATE CREATED: 13 JUN 86 -- 
-- LAST MODIFIED: O04 NOV 86 -— 


-- AUTHORS: LCDR JEFFREY L. NIEDER == 
= LT KARL S. FAIRBANKS, JR. —= 


-- DESCRIPTION: This package contains the procedures which =~ 
o- fills the buffer from the input file and returns the =< 
-- the next character from the buffer when called. -- 
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with GLOBAL, TEXT_I03 
use GLOBAL, TEXT_I0}3 


package GET_NEXT_CHARACTER is 
procedure GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER : 
out character )3 
procedure FILL_BUFFER( INPUT_LINE : out INPUT_CODE_LINE ); 
end GET_NEXT_CHARACTER; 


package body GET_NEXT_CHARACTER is 


-- this procedure gets the next character to be manipulated in 
-- the creation of each token 
procedure GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER : 
out character) is 


-- if the last character is read from the input buffer then it is 
-- time to refill the buffer, and reset the index variables 
begin 
if NEXT_BUFFER_INDEX = REFILL_BUFFER_INDEX then 
FILL_BUFFER( INPUT_LINE )3 
CURRENT_BUFFER_INDEX := 03 
NEXT_BUFFER_INDEX := 13 
end if; 
if NEXT_BUFFER_INDEX = INPUT_LINE_SIZE then 
LOOKAHEAD_ONE_CHARACTER := ASCII.CR3}3 
else 
LOOKAHEAD_ONE_CHARACTER := INPUT_LINE(NEXT_BUFFER_INDEX + 1)3 
end ifs 
NEXT_CHARACTER := INPUT_LINE(NEXT_BUFFER_INDEX)3 
CURRENT_BUFFER_INDEX := NEXT_BUFFER_INDEX3 
NEXT_BUFFER_INDEX := NEXT_BUFFER_INDEX + 13 
end GETNEXTCHARACTER} 


procedure FILL_BUFFER(INPUT_LINE : out INPUT_CODE_LINE) is 


begin 
for i in 1..INPUT_LINE_SIZE loop -- reset the input buffer to ail $'s 
INPUT_LINE(i) := '$'3 
end loop}; 


get_line(TEST_FILE, INPUT_LINE, INPUT_LINE_SIZE )3 
TOTAL_LINES_INPUT := TOTAL_LINES_INPUT + 13 
REFILL_BUFFER_INDEX := INPUT_LINE_SIZE + 1} 

end FILL_BUFFER;3 


end GET_NEXT_CHARACTERS} 
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/-- TITLE: AN ADA SOFTWARE METRIC aS 


-- MODULE NAME: PACKAGE GLOBAL —— 
-- DATE CREATED: 13 JUN 86 ao 


-- LAST MODIFIED: 16 OCT 86 -- 
-- AUTHORS: LCDR JEFFREY L. NIEDER -- 
a LT KARL S. FAIRBANKS, JR. -- 
-- DESCRIPTION: This package contains all the global type, -- 
-- subtype, and variable declarations. -- 
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with TEXT_IO}3 
package NEW_INTEGER_IO is new TEXT_IO.INTEGER_IO( integer )}3 


S228 SP SSS SSS SSS SPS SS SSIS SS SSS SSS SSS SS SPS SBS SF SF SF SF SF SF SSFP FSF SSFP VT SFT SSF SSP SFT SPI SF SSF SF SF SB SFC SFC SF SF FS SF SS SS SS Se 


with TEXT_IO, NEW_INTEGER_IO}3 
use TEXT_IO, NEW_INTEGER_IO}3 


package GLOBAL is 
LINESIZE : constant integer := 1003 


-- Ada token classes -- 
type TOKEN is (IDENTIFIER, SEPARATOR, NUMERIC_LIT, DELIMITER, COMMENT, 
CHARACTER_LIT, STRING_LIT, ILLEGAL); 


-- record to hold the token built up by the scanner, the value is the 
-- token's position (POS) in the token list, the lexeme is the actual 
-- string for that particular token 
type TOKEN_RECORD_TYPE is 
record 
TOKEN_TYPE : TOKEN} 
TOKEN_VALUE : integer} 
LEXEME ; String! l.- LINESIZED: 
LEXEME_SIZE : natural}; 
end records 


-- this array is the input buffer, it holds each line of code when 
-- read from the input file 
subtype INPUT_CODE_LINE is string(1..LINESIZE )3 


subtype UPPER_CASE_LETTER is character range 'A'..'Z'}3 
subtype LOWER_CASE_LETTER is character range ‘a'..'z'}3 
subtype UPPER_CASE_HEX is UPPER_CASE_LETTER range ‘A'..'F'} 
subtype LOWER_CASE_HEX is LOWER_CASE_LETTER range ‘a'..'f'$ 


subtype DIGITS_TYPE is character range '0'..'9'}3 


-- the following subtype declarations make use of the POS attribute 
-- which returns the integer value of the particular ASCII 
-- character argument 


-- set of formators characterized by their ASCII value -- 
-- formators are horizontal tab, line feed, vertical tab, form feed, 
-- and carraige return 
subtype FORMATORS is integer 
range character 'pos(ASCII.HT)..character 'pos(ASCII.CR)}3 


-- first set of delimiters characterized by their ASCII value -- 
-- delimiters are ampersand, accent mark, left paren» right paren, 
-- asterisk, plus sign, comma, dash, period, slash 

subtype DELIMITERI1 is integer 
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range character 'pos(‘'&')..character'pos(‘'/' )}3 


-- second set of delimiters characterized by their ASCII value -- 
-- delimiters are colon» semi-colon, less than, equal, greater than 
subtype DELIMITER2 is integer 

range character'pos(‘':')..character'pos('>'); 


-- compound delimiters whose first symbol is in second set of delimiters --~- 
-- the entire set of compound delimiters are <=, >=) /=, *¥, <<y >>y =>, 
cas’ tS) <>» 55 
subtype COMPOUND_DELIMITER is DELIMITER2 
range character 'pos('<')..character'pos('>' )5 


ester Le, RESULT_FILE : file_types 
INPUT_FILE_NAME Sat imal Wee LNeoo Ze os 
NEXT _CHARACTER : characters 
LOOKAHEAD_GNE_CHARACTER : characters} 
CURRENT_SUFFER_INDEX : integers 
NEXT_SUFFER_INDEX : integer := 93 
TOKEN_RECORD : TOKEN_RECORD_TYPE} 
INPUT_LINE : INPUT_CODE_LINE} 
TOTAL_LINES_INPUT : integer := 03 
REFILL _BUFFER_INDEX : natural := 03 
LEXEME_LENGTH, INPUT_LINE_SIZ=& : natural; 
TOKEN_CLASS : TOKENS 


sorocedure ERROR_MESSAGE(TOKEN_CLASS : in out TOKEN)$ 
SCANNER_ERROR > exception; 


end GLOBALs 
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package body GLOBAL is 


-- procedure called when an error is detected by any of the token class 
-- routines,» an integer value is passed identifying which routine called 
-- this procedure, and the SCANNER_ERROR exception is raised. 
procedure ERROR_MESSAGE( TOKEN_CLASS : in out TOKEN) is 
SCANNER_ERROR_VALUE : integer; 
begin 
SCANNER_ERROR_VALUE := TOKEN'‘pos( TOKEN_CLASS )3 
case SCANNER_ERROR_VALUE is 


when 0 => put(RESULT_FILE, “Illegal identifier at line number "); 

when 1 => put(RESULT_FILE, “Illegal separator at line number '")}3 

when 2 => put(RESULT_FILE, “Illegal numeric literal at line number ")3 
when 3 => put(RESULT_FILE, “Illegal delimiter at line number ")}3 

when 4 => put(RESULT_FILE, “Illegal comment at line number ")3 

when 5 => put(RESULT_FILE, "Illegal character literal at line number ")3 
when 6 => put(RESULT_FILE, "Illegal string literal at line number ")3 
when 7 => put(RESULT_FILE, “Illegal first character at line number '")3 


when others => null} 
end case} 
put(RESULT_FILE, TOTAL_LINES_INPUT )3 
new_line(RESULT_FILE )3 


raise SCANNER_ERROR} 
end ERROR_MESSAGE 3 


end GLOBAL}; 
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-- TITLE: 

-- MODULE NAME: 
-- DATE CREATED: 
-- LAST MODIFIED: 


-- AUTHORS: 


AN ADA SOFTWARE METRIC 
PACKAGE GLOBAL_PARSER 
17 JUL 86 
03 DEC 86 


LCDR JEFFREY L. NIEDER 


—— LT KARL S. FAIRBANKS, 


-- DESCRIPTION: 


JR. 


This package contains the global variables 


-- used by the parser and metric. It also contains all 
-- of the declarations otf the reserved words and reserved 
-- symbols recognized by the language. 


— MEH HRM HMRK MEE HK HH HH HHH HHH HIN FEM IEE EE IE IE HE IE SESE FE IE IE FE FE IE IEE SE FE FEE IE IE FEE EE HEHE HH MH OM 


with GLOBAL, TEXT _[0; 
use GLOBAL, TEXT_I93 


package GLOBAL_PARSER is 


TOXEN_ARRAY_SIZE 
SOLIS alee cree 


TOKEN_IDENTIFIER 
TOKEN_NUMERIC LITERAL 


TOKEN_CHARACTER_LUSTERAL 


TOKEN_STRING_LITERAL 
TOKEN_END 
TOKEN_BEGIN 
TOKEN_ TF 
TOXEN_THEN 
TOKENLEESIE 
TOKENLECSE 
TOKEN_WHILE 
TOKEN_LOOP 
TOKEN_CASE 
TOKEN_WHEN 
TOKEN_DECLARE 
TOKEN_FOR 
TOKEN_OTHERS 
TOKEN_RETURN 
TOKEN_EXIT 
TOKEN_PROCEDURE 
TOKEN_ FUNCTION 
TOKEN_WITH 
TOKEN_USE 
TOKEN_PACKAGE 
TOKEN_BODY 
TOKEN_RANGE 
TOKEN_IN 
TOKEN_OUT 
TOKEN_SUBTYPE 
TOKEN_TYPE 
TOKEN_IS 
TOKEN_NULL 
TOKEN_ACCESS 
TOKEN_ARRAY 
TOKEN_DIGITS 
TOKEN_DELTA 
TOKEN_RECORD_STRUCTURE 
TOKEN_CONSTANT 
TOKEN_NEW 
TOKEN_EXCEPTION 
TOKEN_RENAMES 
TOKEN_PRIVATE 
TOKEN_LIMITED 


constant 
constant 


constant 
constant 
constant 
constant 
constant 
constant 
cons tant 
constant 
constant 


: constant 


: constant 


constant 


: constant 
; constant 
: constant 
; constant 
: constant 


constant 


: constant 
: constant 
: constant 
: constant 
: constant 
: constant 
; constant 
: constant 
: constant 
: constant 
: constant 


oe 


constant 


; constant 
: constant 
: constant 
: constant 
: constant 


constant 


: constant 
; constant 
: constant 
: constant 
: constant 
: constant 
: constant 
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integer 
integer 


integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 


integer : 
integer : 


integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 
integer 


integer : 


integer 
integer 
integer 


integer : 
integer : 
integer : 
integer : 
integer : 
integer : 


ry ee | 


4 ee ae ee ee ee ee ee ee ees ee ee es as a6 ee os es se ee es 
Tn | | | | LD | | | | | | | | | | | | | | | LD 
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TOKEN_TASK : constant integer := 443 
TOKEN_ENTRY : constant integer := 453 
TOKEN_ACCEPT : constant integer := 463 
TOKEN_DELAY : constant integer := 473 
TOKEN_SELECT : constant integer := 483 
TOKEN_TERMINATE : constant integer := 493 
TOKEN_ABORT constant integer := 503 
TOKEN_SEPARATE constant integer := 513 
TOKEN_RAISE : constant integer := 52; 
TOKEN_GENERIC ; constant integer := 533 
TOKEN_AT constant integer := 543 
TOKEN_REVERSE : constant integer := 553 
TOKEN_DO : constant integer := 563 
TOKEN_GOTO : constant integer := 573 
TOKEN_OF constant integer := 583 
TOKEN_ALL : constant integer := 593 
TOKEN_PRAGMA : constant integer := 603 
TOKEN_AND ; constant integer := 613 
TOKEN_OR ; constant integer := 623 
TOKEN_NOT : constant integer := 633 
TOKEN_XOR constant integer := 643 
TOKEN_MOD : constant integer := 653 
TOKEN_REM : constant integer := 663 
TOKEN_ABSOLUTE constant integer := 673 
TOKEN_ASTERISK constant integer := 683 
TOKEN_SLASH : constant integer := 69; 
TOKEN_EXPONENT : constant integer := 703 
TOKEN_PLUS : constant integer := 713 
TOKEN_MINUS : constant integer := 72) 
TOKEN_AMPERSAND : constant integer := 73; 
TOKEN_EQUALS : constant integer := 74; 
TOKEN_NOT_EQUALS : constant integer := 75; 
TOKEN_LESS_THAN : constant integer := 763 
TOKEN_LESS_THAN_EQUALS : constant integer := 773 
TOKEN_GREATER_THAN : constant integer := 783 
TOKEN_GREATER_THAN_EQUALS : constant integer := 793 
TOKEN_ASSIGNMENT : constant integer := 803 
TOKEN_SEMICOLON : constant integer := 813 
TOKEN_PERIOD : constant integer := 823 
TOKEN_LEFT_PAREN : constant integer := 833 
TOKEN_RIGHT_PAREN : constant integer := 843 
TOKEN_COLON : constant integer := 853 
TOKEN_COMMA : constant integer := 863 
TOKEN_APOSTROPHE : constant integer := 873 
TOKEN_RANGE_DOTS : constant integer := 883 
TOKEN_ARROW : constant integer := 893 
TOKEN_BAR : constant integer := 903 
TOKEN_BRACKETS : constant integer := 913 
TOKEN_LEFT_BRACKET : constant integer := 923 
TOKEN_RIGHT_BRACKET : constant integer := 933 


type TOKEN_RECORD_BUFFER_ARRAY is 


array (0..TOKEN_ARRAY_SIZE) of TOKEN_RECORD_TYPE} 


TOKEN_RECORD_BUFFER : 
CURRENT_TOKEN_RECORD 
LOOK_AHEAD_TOKEN 


TOKEN_RECORD_BUFFER_ARRAY 3 
: TOKEN_RECORD_TYPE}3 
: TOKEN_RECORD_TYPE}3 


TOKEN_ARRAY_INDEX integer := 03 
LENGTH_OF_LINE integer := 03 
PLACE HOLDER_INDEX : integer := 03 
COMMENT_COUNT integer := 03 
DATA_FILE_SIZE integer := 03 
STATUS_COUNTER : integer := 03 
FULL : boolean := FALSE} 
FINISHED : boolean := FALSE} 
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RESERVE_WORD_TEST : boolean := FALSE} 
FIRST_TIME_LOAD : boolean := TRUE} 
PROCEDURE_TEST : boolean := FALSE} 
ERROR : boolean := FALSE} 
TYPE_PRESENT : boolean := FALSE} 
DECLARATION : boolean} 
TEST_FILE_NAME : string(1..LINESIZE )3 
DATA_FILE_NAME : String(]..LINESIZE }} 
DUMMY _FILE_NAME : string(1..LINESIZE )3 
EDIT_SUFFER : string(1l1..EDIT_LINE_SIZE }}3 
ANSWER ; characters} 
DATA_FILE1L, DATA_FILE2 : file_type; 
DATA_FILES, DATA_FILE4 : file_type; 
PARSER_ERROR > exceptions 
QUIT_TO_OS > exceptions 


procedure CLEARSCREEN} 
procedure SYNTAX_ERROR( ERROR_MESSAGE : string)}3 


end GLOBAL_PARSER} 


3 ew @ ew ow ow Ow © ow ow 8 ow 8 @ ow oe 3 oe 6 8 2 ee 2 2 2 oe 68 © © 2 oe oe @ oe om @ oe 68 88 6 oe 6 © «e288 68 8 ow ow oe 88 oe 98 8 88 oe 2 oe 2 oe oe 68 8 oe oe oe oe oe oe oe ee oe 2 oe oe oe oe oe 


package body GLOBAL_PARSER is 


procedure CLEARSCREEN is 
begin 

PULA oG. lL LOC w ke eo as 
end CLEARSCREEN} 


CE Ee Re De ee ee Di Di eB ee ee ee ee eee ee 


procedure SYNTAX_ERROR( ERROR_MESSAGE : string) is 
begin 

put("Incomplete ")}3 

put(ERROR_MESSAGE }}3 

put(" at Line number"); 


put(RESULT_FILE, “Incomplete ")3 
put(RESULT_FILE, ERROR_MESSAGE }} 
put(RESULT_FILE, " at line number" )} 


raise PARSER_ERROR} 
end SYNTAX_ERROR} 


end GLOBAL_PARSER}$ 
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et Le $ AN ADA SOFTWARE METRIC = 
-- MODULE NAME: HALSTEAD_DISPLAY -- 
-- DATE CREATED: 11 OCT 86 -- 
-- LAST MCDIFIED: 03 DEC 86 -- 
-- AUTHORS: LCDR JEFFREY L. NIEDER =i! 
== LT KARL S. FAIRBANKS, JR. => 


-- DESCRIPTION: This package contains all of the procedures -- 
-- and functions necessary to implement HYalstead's length -- 
-- metric. _ 


> HHH HHH IH IH ETHIE HE IEE EE HEI IEE HE HEH HEH HEHEHE HEHEHE HIE HEH HIE HEHEHE IEE HIE HEHE HEH HE EHH HEE om om 


with DISPLAY_SUPPORT, HALSTEAD METRIC, BYPASS _SUPPORT_FUNCTIONS, GLOBAL _PARSER, 
GLOBAL, TEXT_I03 
use DISPLAY_SUPPORT, HALSTEAD_METRIC, 3YPASS_SUPPORT_FUNCTIONS, GLOBAL_?ARSER> 
GLOBAL, TEXT_T0O}3 


package HALSTEAD_DISPLAY is 
package NEW_INTEGER_IO is new TEXT_IO.INTEGER_IOl( integer }35 
use NEW_INTESER_I03 


package REAL_I0 is new TEXT_I0.FLOAT_IOl float )s 
use REAL_IO$ 


Procedure HALSTEAD; 

procedure VIEW_OPERATORS; 

procedure OPERAND MENU; 

procedure VIEW_SCOPE_STRUCTURES3 

procedure VIEW _VARIAGLES; 

procedure VIEW_BLOCKS; 

procedure METRIC_CONCLUSIONS} 

function LOG2Z(NUMBER : float) return floats 

function NATURAL_LOG( NUMBER : float) return float; 
end HALSTEAD_DISPLAY} 


package body HALSTEAD_DISPLAY is 


-- this procedure provides a menu of selections for viewing Halstead's 
-- length metric data. It also loads the symbol table array. 
procedure HALSTEAD is 
DONE : boolean := FALSE} 
DUMMY_LINE_LENGTH : integers 
LEXEME_NAME :string(1..LINESIZE )}3 
begin 
GET_FILENAME( TYPE_PRESENT )}3 
while not (DONE) loop 
CLEARSCREEN} 
new_line} 
PUT ("9S HEHEHE HEHEHE HEHEHE HEHEHE IEIE HEHE HEHEHE HEE HEHE HEHE HEHE HEHE HEHE HEHEHE HE HEHEHE HE HEH HHH HHH HHH HHH" YS 
PU t ( 1936363636 HEE HEHE HEHEHE HEHE HEH HEH HHHHHH'"' NEw Lines 


putt Ws WY) 
put(" *'"")3 new_line}s 
Bere 1x HALSTEAD SELECTION MENU "D5 
put¢" *")3 new_Line}s 
put Wx Ds 
put(" *")3 new_lines 
putt Wx Ws 
put(" *")3 new_lines 
put( "x HERE ARE THE HALSTEAD METRIC OPTIONS AVATILAB" )3 
put("LE TO YOU *")3 new_lines 
putt TVs "ys 
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pue(s *")3 new_lines 


put ( "x Simply enter the number of your choice" )$ 
fey Whe af (ot *" J); new_line; 
put( "x W)s 
putt” *" J; new _lines 
put{( x 1 - HALSTEAD OPERATORS ")5 
fot ot a *'')3 new_lines 
pu tl x "yy 
putts *'"")}3 nmew_line; 
put ( "x 2 - HALSTEAD OPERANDS oad 
put(" *'""); new_lines 
put( a 
poy Ua oi ta *""J}5 new_lines 
put ( x 3 - HALSTEAD METRIC CONCLUSIONS AIA 
putt" *«"}3 new_lLine; 
sutt “we mr § 
sure Cr "33 new_lines 
putts 4 = EXIT TO METRIC SELECTION MENU Leut 
put(" <" J), new_Llines 
put( AP: 4 ees 
put( *" Js new_line; 
putt = 5 - EXIT TO OPERATING SYSTEM ae 
put(" *" 3 new_lines 
put( ''x ae 
put(" "33 new_lines 


PUT (11636363626 3636 HE 3E AE HE FE DE HE AEE SE AE HE EE EHEC HEHE IE HE IEE HEHE HE HEHEHE HEHE HEE HEHE HEE HE HEHEHE HEE EE YS 
FULT ("1636363626396 36 HEHE EHH EEK HMKHK'' YS New _Line(Z}3 


put( "Choice = "33 
get( ANSWER}; 
get_linet DUMMY _SILE NAME, OUMMY_!LINE_LENGTH )3 -- flusn system input 


-- load the symnol table array -- 
spen(DATA_FILES, in_tiles OATA_FILE_NAME 32 ". rand’ }3 
get(DATA_FILE3, LAST_ENTRY_INDEX, 5}; 
get(DATA_FILE3, TOTAL_OPERAND_COUNT, 5)3 
get_line( DATA_FILE3, OUMMY_FILE_NAME, LENGTH_OF_LINE )3 
for I in 0..LAST_ENTRY_INDEX-1 loop 
get(DATA_FILE3, SYMBOL_TABLE(I).SCOPE, 5)+3 
get(DATA_FILE3, SYMBOL_TABLE(I).REFERENCE, 5)3 
get(DATA_FILE3, SYMBOL_TABLE(I).DECLARATION_TYPE, 5)3 
get_line(DATA_FILE3, LEXEME_NAME, LENGTH_OF_LINE }35 
NEW_NODE := new OPERAND_TYPE; 
NEW_NODE .OPERAND := LEXEME_NAME3 
NEW_NODE .SIZE := LENGTH_OF_LINE} 
NEW_NODE .NEXT_OPERAND := nulls 
SYMBOL_TABLE(I).LEXEME_ADDRESS := NEW_NODEs$ 
end loop; 
close(DATA_FILE3)3 


new_line(2)3 


case ANSWER is 
when ‘'1' => VIEW_OPERATORS; 
when '2' => OPERAND_MENU3 
when '3' => METRIC_CONCLUSIONS} 
when 'G' => DONE := TRUE; 
when '5' => raise QUIT_TO_OS}3 


when others => nulls 
end case} 
end loop; 
end HALSTEAD; 


-- this procedure displays the Halstead operator metric data. 
procedure VIEW_OPERATORS is 


DONE : boolean; 

OCCURENCES, OPERATORS_USED > integer := 03 
HOLD_CHARACTER ; character} 
LEXEME_NAME : string(1..LINESIZE )3 


da 


begin 
CLEARSCREEN$ 
open(DATA_FILE1, in_file, DATA_FILE_NAME & ".data")3 
POUT 18 363636 363696 IEICE IE IE HEHEHE HE IE HEHE HEHE HEHEHE HEHEHE HEHE IE HE HEHE HEHEHE HEHEHE HEHE HEHE HEHE HEHEHE HEHEHE HE HEHEHE HEHE"! YS 
POUT (1936363639636 96 EE HE HEHEHE HEHEHE EHH HHHHHNM' DS NEw _Linel2)}3 


CONVERT_UPPER_CASE(DATA_FILE_NAME, DATA_FILE_SIZE )3 

put(" Operator data for file ** ")3 

put( ADJUST_LEXEME (DATA_FILE_NAME, DATA_FILE_SIZE ) )3 

put (" %**€")3 new_Llinel 2)35 

put("OPERATOR UTILIZED" )3 new_lines 
PUT ( Seen men ern rr nn rn rn rer rn ren enn renner een nen ese "Js; new_lines 


for I in TOKEN_AND..TOKEN_ASSIGNMENT loop 
get(DATA_FILE1, OCCURENCES); 
if (OCCURENCES /= 0) then 
case I is 
when TOKEN_AND => 
put(ADJUST_EDIT_BUFFER("Boolean 'AND'", 13))3 
when TOKEN_OR => 
put( ADJUST_EDIT_BUFFERi "Boolean 'OR'", 12))3 
when TOKEN_NOT => 
put(ADJUST_EDIT_BUFFER("Boolean 'NOT'", 13))3 
when TOKEN_XOR => 
put(ADJUST_EDIT_BUFFERi "Boolean 'XOR'", 13))3 
when TOKEN_MOD => 
put(ADJUST_EDIT_BUFFER(i( "Modulus 'MOD'", 13))3 
when TOKEN_REM => 
put( ADJUST_EDIT_BUFFER( "Remainder 'REM'", 15))3 
when TOKEN_ABSOLUTE => 
‘putt ADJUST_EDIT_BUFFER( "Absolute Value 'ABS''", 20))3 
when TOKEN_ASTERISK => 
put(ADJUST_EDIT_BUFFERI "Multiplication '*'", 18))3 
when TOKEN_SLASH => 
put(ADJUST_EDIT_BUFFER( "Division ‘/'", 12))3 
when TOKEN_EXPONENT => 
put( ADJUST_EDIT_BUFFER("Exponentiation 'x*'", 19))3 
when TOKEN_PLUS => 
put( ADJUST_EDIT_BUFFER( "Addition ‘'+#'", 12))3 
when TOKEN_MINUS => 
put(ADJUST_EDIT_BUFFER("Subtraction ‘'-'", 15))3 
when TOKEN_AMPERSAND => 
put(ADJUST_EDIT_BUFFER("Catenation '&'", 14))3 
when TOKEN_EQUALS => 
put( ADJUST_EDIT_BUFFER("Equality ‘='", 12))3 
when TOKEN_NOT_EQUALS => 
put(ADJUST_EDIT_BUFFER("Inequality ‘/='", 15))3 
when TOKEN_LESS_THAN => 
put(ADJUST_EDIT_BUFFER("Less Than '<'", 13))3 
when TOKEN_LESS_THAN_EQUALS => 
put( ADJUST_EDIT_BUFFER("Less Than Equals ‘<='", 21))3 
when TOKEN_GREATER_THAN => 
put(ADJUST_EDIT_BUFFER("Greater Than ‘>'", 16))3 
when TOKEN_GREATER_THAN_EQUALS => 
put(ADJUST_EDIT_BUFFER("Greater Than Equals ‘'>='", 24))3 
when TOKEN_ASSIGNMENT => 
put(ADJUST_EDIT_BUFFER("Assignment ‘:='", 15))3 


when others => nulls 
end case} 
put( OCCURENCES,5)35 
new_line; 
end if3 -- if occurences /= 0 
end loops 


get_line(DATA_FILE1, DUMMY_FILE_NAME, LENGTH_OF_LINE )3 


for I in IF_CONSTRUCT. .CASE_CONSTRUCT loop 
get(DATA_FILE1, OCCURENCES, 5)3 
if (OCCURENCES /= 0) then 
case I is 


LS 


when IF_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER("IF construct", 12))3 
when LOOP_CONSTRUCT => 
put( ADJUST_EDIT_BUFFER("LOOP construct", 14))3 
when WHILE_CONSTRUCT => 
put(ADJUST_EDIT_BUFFER( "WHILE construct", 15))35 
when FOR_CONSTRUCT => 
put({ ADJUST_EDIT_BUFFER("FOR construct", 13))3 
when CASE_CONSTRUCT => 
put(ADJUST_EDIT_BUFFER("CASE construct", 14))3 
when others => nulls 
end case; 
put(OQCCURENCES, 533 new_line;s 
end if; 
end loops 


new_lines 

put( ADJUST_EDIT_BUFFER("Numoer of individual operators used", 25) )}3 
get(DATA_FILE1, OPERATORS_USED 33 

put(OPERATORS_USED, 5)3 

new_lines 

put({ ADJUST_EDIT_BUFFER( "Total number of occurences", 26))}3 
get(DATA_FILE1, OCCURENCES}; 

put(QCCURENCES, 5)3 

new_line(2)3 

close(DATA_FILE1 }3 


put(" --- Enter any letter to continue ---")3 
new_line; 
get( HOLD_CHARACTER }3 

end VIEW_OPERATORS; 


-- this procedure provides a menu of selections for viewing the 
-- Halstead operand metric data. 
procedure OPERAND_MENU is 
DONE : boolean := FALSE} 
DUMMY_LINE_LENGTH : integer} 
begin 
while not (DONE) loop 
CLEARSCREEN3} 
new_lines 
POU t ("93636 EI HEHEHE HEE IE HEHEHE IE IE HEHEHE HE HEIEIE IE IE HE HEE IED HEHEHE HEHE IE HEF HEHEHE HEHE HEHEHE IEE HE EHO IEE IED 5 
POUT ("93636 E33 EEE HIE IEEE HEHEHE HH HH HHH" NEw Lines 


put( 113g w) ; 
put(" *"")3 new_lines 
put( "x HALSTEAD OPERAND SELECTION MENU ")3 
put(" *")3 new_lines 
put( "x as 
put(" *") 5 new_lines 
put { Wty ih] ) } 
put ( ¥" J), new_line; 
put( "x HERE IS THE OPERAND DATA AVAILABLE" )3 
put(" *")3 new_lines 
put( thx )s 
put(* *")5 new_line3s 
put( "x Simply enter the number of your choice"); 
put(" *'") 3 new_lines 
put( 113 )s 
put(" *" Js new_lines 
put( "x 1 - PROCEDURE, FUNCTION, PACKAGE INFORMATI" 3 
put("ON *"")5 new_Lline; 
put( "x es 
put(" *' Js new _lines 
put( "x 2 - VARIABLES AND CONSTANTS INFORMATION "Ds 
put("' *" 5 new_lines 
put Hy m5 
put(" *"J3 new_lines 
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put( ''* 3 - TASKS AND BLOCKS INFORMATION 8 


put(" *'"")3 nmnew_lines 
put { "x ")5 
put(" *")3 new _lines 
put( "x G@ - EXIT TO HALSTEAD SELECTION MENU wae 
putt" *" 33 new_lLine}s 
put{ Wx ee 
put(" *")3 new lines 
put( "x 5 - EXIT TO OPERATING SYSTEM Ba 
put(" *'' 3 new_lines 
put ( 0% Le 
put(" ¥"")3 new_line; 


TOUT ("99636 EI EEE HEE HIE EH HIE HEHE HEHE HEHE HEH HIE HEI HE HEHEHE HEI HE HEHE HEHE HEHE IIE 5 
PUT ( "EHH KKH HH HHH HK HHH YS New _ Lime(2)3 


put("Choice = ")3 
get( ANSWER }3 
get_linet DUMMY _FILE_NAME, DUMMY_LINE_LENGTA)+5 ~- flush system input 
-- butter 
new _linei2}3 
case ANSWER is 
when ‘'1' => VIEW_SCOPE_STRUCTURES; 
when '2' => VIEW_VARIABLES} 
when ‘3' => VIEW_BLOCKS; 
when 'G* => DONE := TRUE; 
when 'S' => raise QUIT_TO_OS}3 


when others => null; 
end case; 
end loop; 
end OPERAND_MENU3 


<2 oe ee ee ee eo ee eee eee ee ee ee ee ee ee eee eee ee eee ee ee ee ee ee ee ee ee ee ee oe ee ae ee a ee ee ee ee ee 


-- this procedure displays the Halstead operand metric data for 
-- packages, procedures, and tunctions. 
procedure VIEWN_SCOPE_STRUCTURES is 
SCREEN_COUNTER : integer := 03 
NAME : string(1l..LINESIZE )3 
SIZE, COUNT : integer} 
HOLD_CHARACTER : character} 
begin 
CLEARSCREEN} 
Ut ("1 626 22636 HEHEHE HEE HEHE HEHE HEHEHE HEHEHE EE HEHE HEHE HEHEHE HEHE HEHEHE HEHEHE HEHE HEH HEHE HEH HEHEHE HEHEHE HEHEHE" 5 
COUt (932 HEHE HEHE HEHEHE HHH HHH HHH HH DS Mew _Line(2)3 


CONVERT_UPPER_CASE(DATA_FILE_NAME, DATA_FILE_SIZE }3 
for DECLARE_TYPE in PACKAGE_DECLARE..FUNCTION_DECLARE loop 
case DECLARE_TYPE is 
when PACKAGE_DECLARE => 
put(" PACKAGES for file - ")3 
when PROCEDURE_DECLARE => 
put('' PROCEDURES for file - ")3 
when FUNCTION_DECLARE => 
put('' FUNCTIONS for file - ")3 
when others => null; 
end case} 
put( ADJUST_LEXEME(DATA_FILE_NAME, DATA_FILE_SIZE))3} new_line(2)3 
put ( "NAME REFERENCED" )3 new_line} 
PUT 8 22 nr nr rr rr rrr rrr rrr “3 new_lines 


for I in 0..(LAST_LENTRY_INDEX-1) loop 
NAME := SYMBOL_TABLE(I).LEXEME_ADDRESS.OPERAND3 
SIZE := SYMBOL_TABLE(I).LEXEME_ADDRESS.SIZE } 
COUNT := SYMBOL_TABLE(I).REFERENCE3 
if (SYMBOL_TABLE(I ).DECLARATION_TYPE = DECLARE_TYPE) then 
put( ADJUST_EDIT_BUFFER(NAME, SIZE ))3 
put(COUNT, 5)3 new_lines 
SCREEN_COUNTER := SCREEN_COUNTER + 13 
if (SCREEN_COUNTER = 10) then 
new_line(3 )3 
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put(" --- Enter any letter to continue ---"); 


new_lines 
get( HOLD_CHARACTER )}3 
CLEARSCREEN} 
SCREEN_COUNTER := 03 
case DECLARE_TYPE is 
when PACKAGE_DECLARE => 
put(" PACKAGES for file - ")3 
when PROCEDURE_DECLARE => 
put(" PROCEDURES for file - ")3 
when FUNCTION_DECLARE => 
put("' FUNCTIONS for file - "“)3 
when others => null; 
end cases 


put( ADJUST_LEXEME( DATA_FILE_NAME, OATA_FILE_SIZE))3 new_line(2)3 
put( "NAME REFERENCED" )3 


new Lines 


DUC a en rr rn re ene newness ess cesses es== 
new_lines 
end 1f3 -- if screen_counter = 
end if; -~ if symbol_table(i).declaration_type 
end loop; -- for iin O..(last_entry_index-1) 


new_line(2)}3 

put(" ~-- Enter any letter to continue ---")}3 

new_line; 

get(HOLD_CHARACTER )3 

CLEARSCREENS 

SCREEN_COUNTER := 03 

end loops -- for declare_type in 

and VIEN_SCOPE_STRUCTURES; 


-- this procedure displays the Halstead cperand metric data for 

-- variables, numeric constants, and global variables. 
procedure VIEW_VARIASLES is 

SCREEN_COUNTER : integer := 03 

NAME 2 ‘Strimat i] LINESIZeE Js 

SIZE, COUNT : integer} 

HOLD_CHARACTER : characters} 


SKIP : boolean}; 

CONT INUE : boolean; 
begin 

CLEARSCREEN} 


POU (18 HEE IE IE HE HEHEHE HE HEHEHE HEE HEHE HEH HEHE HEHE ICH HEHEHE HEHEHE HE HEHE HEHEHE HEHE HEHE HEHEHE HEHEHE HE HEHEHE HEHEHE HHH" YS 
GO £ (1936 9696 36 HEHEHE 36 3 HEHE HEHE HEHEHE IE HHH HHHE" VS NEw _Line(2)}3 


CONVERT_UPPER_CASE(DATA_FILE_NAME, DATA_FILE_SIZE )3 
for DECLARE_TYPE in VARIABLE_DECLARE..NO_DECLARE loop 
SKIP := FALSE3 
CONTINUE := FALSE} 
case DECLARE_TYPE is 
when VARIABLE_DECLARE => 
put(" VARIABLES for file - ")3 
when CONSTANT_DECLARE => 
put("' CONSTANTS for file - ")3 


when NO_DECLARE => 
put('" GLOBAL VARIABLES for file - ")3 
when others => null; 


end case} 


put( ADJUST_LEXEME( DATA_FILE_NAME, DATA_FILE_SIZE))3 new_line(2)3 
put( "NAME REFERENCED" )3 new_lines 
DUT (8 9 a a nr ")} new_lines 


while not (SKIP) loop 
for I in O..(LAST_ENTRY_INDEX-1) loop 


NAME = SYMBOL_TABLE(I).LEXEME_ADDRESS.OPERAND 3} 
>LZE = SYMBOL_TABLE(I).LEXEME_ADDRESS.SIZE 3 
COUNT := SYMBOL_TABLE(T ).REFERENCE 3 
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if (SYMBOL_TABLE(I).DECLARATION_TYPE = DECLARE_TYPE) then 
put( ADJUST_EDIT_BUFFER( NAME, SIZE) )3 
put(COUNT, 5)3 new_line; 
SCREEN_COUNTER := SCREEN_COUNTER + 13 
if (SCREEN_COUNTER = 10) then 
new_line(3)3 
put(" --- Enter ‘S' to stop or any other letter to"); 
put(" continue ---")}3 
new_line3 
get( HOLD_CHARACTER )3 
if (HOLD_CHARACTER = ‘'S') or (HOLD_CHARACTER = ‘s') then 
SKIP := TRUE} 
end ifs 
CLEARSCREEN; 
case DECLARE_TYPE is 
when VARIABLE_OECLARE => 


put('"' VARIABLES for file - ')}3 
when CONSTANT_DECLARE => 

put(" CONSTANTS for file - ")3 
when NO_DECLARE => 

put('' GLOBAL VARIABLES for file - ')3 
when others => nulls; 


end case}3 
put( ADJUST_LEXEME (DATA_FILE_NAME, DATA_FILE_SIZE))3 new_linel(l2)3 


put( "NAME REFERENCED"); 
new_lines 
put( OU mn me me a eee ee = is > 


end if; -- if screen_counter = 10 
end if3 -- if symboi_tableii).declaration_type 
Lf (I = LAST_LENTRY_INDEX - 1) then 

CONTINUE := TRUE; 


end if} -- if 1 = last_entry_index-l 
exit when SKIP3 
end loops -- for i in 0..(last_entry_index-1) 


new_lines 
exit when ((SKIP) or (CONTINUE ))3 


end loop; -- while not sKip loop 
exit when SKIP} 

new_line;s 

put(" --- Enter any letter to continue ---")3 


new_lines 
get( HOLD_CHARACTER )3 
CLEARSCREEN; 
SCREEN_COUNTER := 03 
end loop; -- for declare_type in 


CLEARSCREEN}$ 


new_line(2)3 
put( ADJUST_EDIT_BUFFER("Total number of operands used", 29))3 
put(LAST_ENTRY_INDEX - 1, 5)3 new_lines 
put( ADJUST_EDIT_BUFFER("Total number of occurences, all operands", 40))3 
put( TOTAL_OPERAND_COUNT, 5)3 new_line(3)3 
put(" --- Enter any letter to continue ---")3 
new_lines 
get( HOLD_CHARACTER )3 
end VIEW_VARIABLES3 


-- this procedure displays the Halstead operand metric data for 
-- tasks, and blocks. 
procedure VIEW_BLOCKS is 
SCREEN_COUNTER : integer := 03 
NAME : string(1..LINESIZE )3 
SIZE, COUNT : integers 
HOLD_CHARACTER : character} 


iW 


begin 


CLEARSCREEN$ 
POUlrt (1136 363636 3E SESE 36 3E IE SE FE SE DE DE IE IE IE FE SE FE SE DE HE IE IE SE SE SE SE IEE BE SESE SE 3E ESE IESE EE 3E IE IEE 3436 363636 363633) 5 
Pou t (113636363636 56 3636 HE 3E TE E33 3E EEE HEHEHE" 3 New _Llinel 2)3 


CONVERT_UPPER_CASE(DATA_FILE_NAME, DATA_FILE_SIZE )3 
for DECLARE_TYPE in TASK_DECLARE..BLOCK_DECLARE loop 


case DECLARE_TYPE is 
when TASK_DECLARE => 
put(" TASKS for file - '")3 
when BLOCK_DECLARE => 
put('" BLOCKS for file - ")3 
when others => nulls 
end case; 
put( ADJUST_LEXEME(DATA_FILE_NAME, DATA_FILE_SIZE)}3 new_line(2)3 
put( “NAME REFERENCED" }3 new_lines 
PUT ( nnn nm nnn nw nn nn nn nn nn nn rn rn rn ne eee eee "}; new_lines 


for I in 0..(LAST_LENTRY_INDEX-1) loop 


NAME = SYMBOL_TABLE(I).LEXEME_ADORESS.OPERAND 3 
SIZE = SYMBOL_TABLE(1I}).LEXEME_ADDRESS .SIZE 3 
COUNT := SYMBOL_TABLE(I).REFERENCE $3 


if (SYMBOL_TABLE(I).DECLARATION_TYPE = DECLARE_TYPE) then 
put( ADJUST_EDIT_BUFFER( NAME, SIZE) }3 
put( COUNT, 533 new_lines 
SCREEN_COUNTER := SCREEN_COUNTER + 13 
if (SCREEN_COUNTER = 10} then 
new_line(3)} 
put(" --- Enter any letter to continue ---")3 
new_lines 
get( HOLD_CHARACTER }3 
CLEARSCREEN} 
SCREEN_COUNTER := 03 
case DECLARE_TYPE is 
when TASK_DECLARE => 
put('"' TASKS for file - ")3 
when BLOCK_DECLARE => 
put(" BLOCKS for file - ')s 
when others => nulls 
end case$ 
put( ADJUST_LEXEME(DATA_FILE_NAME, DATA_FILE_SIZE))3 new_line(2)3 


put( "NAME REFERENCED" )3 
new_line3 
put ( 29-22 on en re eee eee ---- aa) 8 
new_lines 
end if} -- if screen_counter = 10 
end if} -- if symbol_table(i).declaration_type 
end loops -- for i in Q..(last_entry_index-1 ) 
new_line(2)3 
put(" --- Enter any letter to continue ---")} 


new_line} 

get( HOLD_CHARACTER )3 
CLEARSCREEN3 
SCREEN_COUNTER := 03 


end loop; -- for declare_type in 
end VIEW_BLOCKS; 


this procedure calculates and displays all of the variables used in 
evaluation of the Halstead length metric. The conclusions, which are 
determined from the calculated lengths, are based on Halstead's 
observations. 


procedure METRIC_CONCLUSIONS is 
HOLD_CHARACTER : character} 
LITTLE_N1, LITTLE_N2, BIG_N1, BIG_N2 : integers; 
LOG_RESULT, DIFFERENCE, DISPARITY : float; 
ADD_RESULT : integers} 


begin 
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CLEARSCREEN} 

open(DATA_FILES$, in_file, DATA_FILE_NAME & ".hals"); 

get(DATA_FILE¢, LITTLE_N1, 5)3 

get(DATA_FILE¢, BIG_NI, 5)3 

get(DATA_FILES, LITTLE_N2, 5)3 

get(DATA_FILE¢, BIG_N2, 5)3 

ADD_RESULT := BIG_N1 + BIG_N2} 

LOG_RESULT := (float(LITTLE_N1) * LOG2( float(LITTLE_N1))) + 

(float(LITTLE_N2) * LOG2( float(LITTLE_N2)))5 

LOG_RESULT - float( ADD_RESULT); 

DIFFERENCE 7 float( TOTAL_LINES_INPUT )}3 


DIFFERENCE 
DISPARITY := 


put("Definition of Halstead variables"): new_lines 


put(" ni - number of distinct operators"); new_lines 

put(" n2- numoer of distinct operands'")3; new_lines 

put(" NL - total numoer otf occurences of operators''}; new_lines 
put(" N2 = total number of occurences of operands’')3 new_line(2}+ 


put(ADJUST_EDIT_SUFFER( "Theoretical Length nl*¥log(nl1) + n2*log{n2)3", 4413)3 
put(LOG_RESULT, 5, 1, 0)3 new_lines 


put( ADJUST_EDIT_BUFFER("Actual Length Nl + N23", 23))3 
put(ADD_RESULT, 5)3 new_line(2)3 


put(ADJUST_EDIT_BUFFER("Difference between theoretical and actual", 41))5 


put(DIFFERENCE, 5, 


1» 0)3 new_Lines 


put(ADJUST_EDIT_3UFFER("Disparity (Difference / Total_lines_input)", 42) 35 


put(DISPARITY, 5, 


if 


((DISPARITY > 0.5) and (DISPARITY <= 


1, 0)3 new_linel(2): 


1.9)) then 


put("4 very large positive disparity. Reasons:"}$: new_lines 


put(" i - POSSIBILITY OF OPERANDS DECLARED BUT NOT USED ‘)3 new_line; 
aut('' There my be some variaples which were declared "1: new_iines 
puc( but never referenced in the program"); new_line; 

put(" 2 - USE OF GLOBAL VARIABLES.")3; new_line3 

out(" & large number of the variables referenced were "Js new_line3 
put(" declared in the package instantiations by the '")3 new_line3 
put(" WITH statements." )3 new_line3 


elsif ((DISPARITY > 0.0) and (DISPARITY <= 0.5)) then 


put("A small positive disparity. 


Reasons: ')3 new_line}3 


put(" 1 - SOME OF THE OPERANDS DECLARED WERE NOT USED ')3 new_lines 
put(" There my be some variables which were declared ")3 new_line} 
put(" but never referenced in the program"); new_line; 
put(" 2 - SOME USE OF GLOBAL VARIABLES. ")3 new_line; 
put(" A large number of the variables referenced were ")3$ new_line3 
put(" declared in the package instantiations by the ")3 new_line} 
put(" WITH statements." )3 new_line}3 

elsif ((DISPARITY > -0.5) and (DISPARITY <= 0.0)) then 
new_line}3 
put(" --- Enter any character to continue ---")3 new_line}3 


ge t( HOLD_CHARACTER )3 
CLEARSCREEN} 


put("A small negative disparity. 
put("a well polished program. 
put("However there may exist any of the following: 


put(" 
put(" 


By Halstead's standards, this is ")} 
"3 new_line} 
")3; new_line}3 
1 - CANCELLING OF OPERATORS '"')3 new_line3 
The occurence of an inverse cancels the effect of a ")}3 


put( "previous operator.'")3; new_lines 


put('"' 2 - AMBIGUOUS OPERANDS ")3 new_lines 

put(" Same operand represents two or more variables.")3; new_line}s 
put(" 3 =- SYNONYMOUS OPERANDS '')3 new_line} 

put(" Two or more operands represent the same variable.")3; new_lines 
put(" 4 = COMMON SUBEXPRESSION ')3 new_lines 

put(" The same subexpression occurs more than once. ")3 new_line3 
put(" 5 - UNNECESSARY REPLACEMENTS '')3 new_lines 

put(" A subexpression is assigned to a temporary ")3 new_lines 
put(" variable which is used only once. ")3} new_line; 

put(" 6 - UNFACTORED EXPRESSIONS ')3 new_lines 

put('" Repetitions of operators and operands among unfactored ")3 


put( "terms. 


"J; new_line}3 
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else 
new_line; 


putt --- Enter any character to continue ---")3 new_lines 
get( HOLD_CHARACTER )3 
CLEARSCREEN3 


put(“A large negative disparity. Halstead gives six reasons: ")3 new_line}3 
put(" 1 - CANCELLING OF OPERATORS ")5 new_lines 

put(" The occurence of an inverse cancels the effect of a ")3 
put("previous operator.")3; new_lines 

put(" 2 - AMBIGUOUS OPERANDS ")3 new_lines 


put(" Same operand represents two or more variables.")3 new_line}3 
put(" 3 - SYNONYMOUS OPERANDS ")3 new_line}3 
put(" Two or more operands represent the same variable.'")3 new_lines 
eput(" & - COMMON SUBEXPRESSTION '")3 new_lines 
put(" The same subexpression occurs more than once. "1)3 new_lines 
put('' 5 - UNNECESSARY REPLACEMENTS "3s new_lines 
put(" 4 suo0expression is assigned to a temporary ‘)3} new_lines 
put(" variable which is used only once. "J: new_lines 
put(" 6 = UNFACTORED EXPRESSIONS '33 new_Lines 
put(" Repetitions of operators and operands among untactored '")}3 
put("terms. ‘)3 mew_line; 

end if} 

new_line3 

put("' --- Enter any character to continue ---'")3 new_line;s 


get(HOLD_CHARACTER 35 
close(DATA_FILES): 
end METRIC_CONCLUSIONS; 


-- this function computes the log to the oase 2 ot a number Sy Using 
-- natural Logarithms. 
function LOGZ( NUMBER : tloat) return float is 
ae ¥ * tloace 
begin 
A := NATURAL_LOG( NUMBER J3 
Y := NATURAL_LOG(2.0)3 
return (X/Y 13 
end LOG2}3 
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-- this function computes the natural logarithm of a number. 
function NATURAL_LOG({NUMBER : float) return float is 
A : constant array (0..5) of float 
:= (0.68629150E+00, 0.67341785E-02, 0.1189414¢2E-03, 
0.2500934¢7E-05, 0.57260501E-07, 0.13791205E-08 };3 


xP» Y > Floats 

M : integer} 

BO, Bl> B2  tloats 
begin 


XP := NUMBER}$ 
if (XP < 0.0) then 
raise DEVICE_ERROR} 


end if} 

M := 03 

while (XP >= 2.0) loop 
M:=M + 13 
XP := XP/2.03 

end loop} 


Y := 3.0 * (XP - 1.0)/0XP + 1.0)3 


XP := 4.0 * Y * (Y - 2.0)3 
BO := 0.03 
Bl := 0.03 
for I in reverse 5..0 loop 
B2 := Bls 
Bl := BO; 
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BO := XP * Bl - B2 + A(T)3 
end loop; 


return (float(M) * 0.69314718 + Y * (BO - Bl1))3 
end NATURAL_LOG3 


end HALSTEAD_DISPLAY } 
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==) Tiel. AN ADA SOFTWARE METRIC —— 


-- MODULE NAME: INITIAL_DISPLAY == 
-- DATE CREATED: 05 OCT 86 =S 
-- LAST MODIFIED: 03 DEC 86 == 


-- AUTHORS: LCDR JEFFREY L. NIEDER a 
== LT KARL S. FAIRBANKS» JR. -- 


-- DESCRIPTION: This package contains the procedures that -- 
-- introduce the metric program and manages the data -- 
-- files. -- 
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with DISPLAY_SUPPORT, PARSER_0, HALSTEAD_METRIC, GLOBAL_PARSER, GLOBAL, TEXT_IO$ 
use DISPLAY_SUPPORT, PARSER_O, HALSTEAD_METRIC, GLOBAL_PARSER, GLOBAL, TEXT_Ii0O}3 


package INITIAL_DISPLAY is 
procedure INITIAL_SCREENS$ 
procedure INTRODUCTIONS 
end INITIAL_DISPLAY 3 
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package body INITIAL_DISPLAY is 


-- this procedure opens all data files for the input file, starts the 
-- the parsing process, writes the metric data to the appropriate files; 
-- closes the data files, and prompts the user for further input files 
-- to parse. 
procedure INITIAL_SCREEN is 
DONE : booleans 
begin 
FINISHED := FALSE} 
while not FINISHED loop 
DONE := FALSE} 
open(RESULT_FILE, out_file, "RESULTS.ADA");3 


GET_FILENAME( TYPE_PRESENT )3 


if (TYPE_PRESENT) then 
open(TEST_FILE, in_file, TEST_FILE_NAME J3 
create(DATA_FILE1, out_file, DATA_FILE_NAME & ".data")3 
create(DATA_FILE2, out_file, DATA_FILE_NAME & ".misc"™)}3 
create(DATA_FILE3, out_file, DATA_FILE_NAME & ".rand")3 
create(DATA_FILE4, out_file, DATA_FILE_NAME & ".hals" )3 
else 
open(TEST_FILE», in_file, TEST_FILE_NAME & ".ada")3 
create(DATA_FILE1, out_file, DATA_FILE_NAME & ".data")} 
create(DATA_FILE2, out_file, DATA_FILE_NAME & ".misc")3 
create(DATA_FILE3, out_file, DATA_FILE_NAME & ".rand" )3 
create(DATA_FILE4, out_file, DATA_FILE_NAME & ".hals")3 
end if} 


INITIALIZE_OPERAND_LIST(DATA_FILE_NAME , HEAD_NODE )3 


if (COMPILATION) then 
new_line; 
CLEARSCREENS}$ 
PUt( "HAHAHAHAHA HARRHRHRRRHRHRARHRHRRAHSRAR RHR D5 
put( "HRARAHARRRARRSHHAHHARHRARHARHARHHS" 3 new Lines 


put('"'# a 
put(" #" 3 new_Llines 
put("'# Parse of Ada program" )$3 
put("' complete #3 new lines 
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put("F maky 
put("' #")3 new_lines 
put( "RRERFRRARAAHRHARARRARHARRARARRAAARRRRARRARRRARH" D5 
put( "BRHAFHRARRASHASHRRERARRARRRARRRSAS'"' ) 5 new_lines 
else 
put("Attempting to parse a non_compilable program"); 
end if} 
new_line(3 )5 


WRITE_OPERATOR_TABLE(DATA_FILE1, DATA_FILE2, DATA_FILE%)3 
WRITE_OPERAND_TABLE(DATA_FILE3, DATA_FILES)3 
WRITE _NESTING_TABLE(DATA_FILE2 }3 


close(DATA_FILE1}}3 
close( DATA_fFILEZ)3 
close( DATA_FILE2); 
close( DATA _FILE4)3 
close( RESULT _FILE)5 


close(TEST_FILE }3 


while not (DONE) loop 
new_Line(2);3 
UTC FREE EHEEEEEEEE EEE EEE HEHEHE HH HEHE HHH SHE ete bette eet te eet" d5 
ULC Fett tt et tet eee eteteeteete eS rew_ lines 


put( ‘+ se Be 
put(" +")3 new_line3 
put(''+ The srogram has completed the scarse of your)$ 
put(" input file +" 33 new_lLines 
put("'+ es 
put(" +" 33 new_lines 
put('+ X0 you want *o parse another file ? (Y/'')5 
put('"'N) +")5 new_lines 
put{ "+ Wy), 
put(" +")} new_lines 
put(''+ Type 'Y' for YES and 'N' for NO es 
put(" +")3 new_lines 
put( "+ Cee 
put(" +")3 new_line} 


PUL CF FEEEEE EE EEE EEE EEE EEE EEE EEE EEE E EEE HHH ttt t ttt ttt tteett" dy} 
PUut( +t t eet te tet etetteteeteetettt++e' 3 new_line(2)}3 
put("Answer : ")3 


GET_ANSWER( ERROR, FINISHED )3 

get_line( INPUT_FILE_NAME, LENGTH_OF_LINE )} -- flush system input 
new_line}; -- buffer 

RESET_ PARAMETERS} 


if ERROR then 
new_line( 2 


V5 
PutC"PLLPPEPPEPE Eee eee os 
PUtC"TILIIPEPIEP Utrera" s new lines 
put( ue un )3 
put(" "3 new_lines 
put(" You either omitted or improperly entered your ‘Y")3 
put(" or 'N' answer "); new_line}3 
put(" Please Try Again “D5 
put(" "); new_lines 
put(" ); 
put(" "3 new_lines 
PUTC"TTITIIEEEEIEIE EPO eae ss 
PutC"TIPLIPEPE Preece eee" 3s new lines 

else 
DONE := TRUE3 
end if} -- if ERROR 
end loop}; -- while not done 
end loop; -- outer while loop 
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end INITIAL_SCREEN3 


-- this procedure produces the initial screen displayed to the user. 
procedure INTRODUCTION is 

HOLD_CHARACTER : characters} 
begin 

CLEARSCREEN} 

OU t ("9363636 36363636 36 HEI IE BE BEDE HE IE IE BE IE BE FE IEE BEE BE BE IE ETE HE FEE HE IE IE HE IEE IEE HE FEE!) YS 

PU t ("9363636365 HEI EHC HIE HEHEHE HH" 5 Mew lines 


put( "x ")3 
put("' *""}3 new_lines 
out(''* NELCOME TO ‘AdaMEASURE' '33 
Settee *<"")53 new_Lines 
pUcC ye "V3 
put('' *'')3 new_lines 
dut(''* AUTHORED BY: LCOR VEPFREY L. NIEDER"); 
sut("', USN «35 new_lines 
put( ''* Cli KARL S. FAIRBANKS" }3 
put('', USN *'""}} new_lines 
put( “3 ")5 
put('"' *'"')3 new_lines 
put( "x NAVAL POSTGRADUATE SCHOOL" Js 
put(" ¥")5 new _lines 
put(''* DEPARTMENT OF COMPUTER SCIEN"); 
pute Ce *""}s new _Lines 
Suict MONTEREY, CALIFORNIA es |e | 
ray Baal Gt "3 new_lines 
out( '* eo hs 
ute <""J5 nmnew_Lines 
nutt =< 31 OCTOBER 1986 ms 
out: *")3 new_Lines 
Sut. arts 
ouc(* *")5 new_lines 
put( "x VERSION 1.0 aan) 
put(" *""J3 new_line}3 
put( "x "D5 
put(" *"")3; new_lines 


put("* This program provides an automated software '")3 
put("metric tool which *'')3 new_lines 
put("* uses quantitative measures in an effort to su'')}3 
put("pply the user with *'')3 new_lines 
put("* helpful information about the static structur" )}3 
put("e of a given input *")5 new_lines 
put("* program. This program is public domain infor" )3 


put("mation. *'""}3 new_line} 
put( we Dy 
put(" *" 3 nmew_lines 


POU t (19363696336 363696 IE IE IE IESE SE IESE FEE IE HE HEHE IEE IEE IEE IE IESE HEHE IEE EI HE HEH HEHEHE HHH" +) 
oUt ( "8363636363696 HEE IEEE IH HHH HHHHE" DS Mew _Linel 2 )3 
put(" --- Enter any letter to continue ---")}5 
new_line}3 
get( HOLD_CHARACTER }} 
end INTRODUCTIONS; 


end INITIAL_DISPLAYs} 
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-- MODULE NAME: PACKAGE LOW_LEVEL_SCANNER a 
-- DATE CREATED: 06 JUN 86 -- 
-- LAST MODIFIED: 04% NOV 86 -- 


-- AUTHORS: LCDR JEFFREY L. NIEDER a= 
ae LT KARL S. FAIRBANKS, JR. == 


-- DESCRIPTION: This package contains six of the seven -- 
ve procedures used to identify the token types. The =o 
-- seventh procedure, used to identify numeric literals =-- 
-- 1s contained in package NUMERIC. -- 


HH HEHEHE HEI HEIL IE IE HE EI FEE HEIL IE IE HEE IE HE EME IE IE HE IEE IE IE IE HE HE IE HEE IE HE HEHE EEE EE HEHE HEHE MH HE HHH HMM 


with NUMERIC, GET_NEXT_CHARACTER, GLOBAL$ 
use NUMERIC, GET_NEXT_CHARACTER, GLOBAL; 


package LOW_LEVEL_SCANNER is 
procedure GET_IDENTIFIER( TOKEN_RECORD: in out TOKEN_RECORD_TYPE )3 
procedure FLUSH_SEPARATORS( TOKEN_RECORD: in out TOKEN_RECORD_TYPE )3 
procedure GET_DELIMITER(TOKEN_RECORD: in out TOKEN_RECORD_TYPE }3 
procedure FLUSH_COMMENT(TOKEN_RECORD: in out TOKEN_RECORD_TYPE }} 
procedure GET_CHARACTER_LIT{ TOKEN_RECORD: in out TOKEN_RECORD_TYPE )}3 
procedure GET_STRING_LIT(TOKEN_RECORD: in out TOKEN_RECORD_TYPE )}3 

end LON_LEVEL_SCANNER} 
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package body LON_LEVEL_SCANNER is 


-- an identifier can be any number of letters or digits following the 
-- first letter, with a single underscore allowed between any pair 
-- of letters and/or digits 


procedure GET_IDENTIFIER( TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
DONE : boolean := FALSE3 
begin 
while (not DONE) loop 
-~- store the character in the lexeme buffer 
-- and increment the lexeme pointer 
TOKEN_RECORD. LEXEME( LEXEME_LENGTH) := NEXT_CHARACTERS} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 


if (( LOOKAHEAD_ONE_CHARACTER in UPPER_CASE_LETTER) or 
( LOOKAHEAD_ONE_CHARACTER in LOWER_CASE_LETTER) or 
( LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE)) then 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }5 


elsif ((LOOKAHEAD_ONE_CHARACTER = '_') and (NEXT_CHARACTER = '_')) then 
ERROR_MESSAGE( TOKEN_RECORD.TOKEN_TYPE)3 -- two consecutive underscores 
-- are not allowed 
elsif (LOOKAHEAD_ONE_CHARACTER = '_') then 
GETNEXTCHARACTER(NEXT_CHARACTER», LOOKAHEAD_ONE_CHARACTER )3 
else 
DONE := TRUE} -- identifier token accepted 
end if; 
end loop; 


end GET_IDENTIFIER} 


-- this procedure removes all the separators, which are delineated 
-- in GLOBAL, from the input code 


85 


procedure FLUSH_SEPARATORS( TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
DONE : boolean := FALSE; 
begin 
while (not DONE) loop 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTER;} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 
if (( LOOKAHEAD_ONE_CHARACTER = ' ') or 
( (character 'pos( LOOKAHEAD_ONE_CHARACTER) in FORMATORS) and 
( LOOKAHEAD_ONE_CHARACTER /7= ASCII.CR))) then 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
else 
DONE := TRUE$ -- completed flushing of separators 
end ifs 
end loop; 
end FLUSH_SEPARATORS 3 


-- this procedure identifies both the simple and compound delimiters 
aie which are delineated in GLOBAL 


procedure GET_DELIMITER( TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
begin 
-~- store the character in the lexeme buffer 
-- and increment the lexeme pointer 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH} := NEXT_CHARACTER;} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 


if ((character'pos(NEXT_CHARACTER?} im COMPOUND_DELIMITER) or 
(NEXT_CHARACTER ".') or UNEXT_CHARACTER = “*** ) or 
(NEXT_CHARACTER ';')J or CNEXT_CHARACTER = '/')} then 
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if (( character 'pos({ LOOKAHEAD_ONE_CHARACTER) im COMPOUND_DELIMITER) or 
( LOOKAHEAD_ONE_CHARACTER = '.') or (LOOKAHEAD_ONE_CHARACTER = '%')) then 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER })3 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTER3 
LEXEME_LENGTH := LEXEME_LENGTH + 13 

end if} 

end if} 
end GET_DELIMITER} 


-- this procedure removes all the comments from the input code 
-- all comments start with a -- and end with a carriage return 


procedure FLUSH_COMMENT(TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
DONE : boolean := FALSE} 
begin 
GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )}3 
while (not DONE) loop 
if (LOOKAHEAD_ONE CHARACTER = ASCII.CR) then 


DONE := TRUE} -- end of comment 
else 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
end if} 
end loops 


end FLUSH_COMMENT 3 


-- this procedure identifies an individual character 
-- formators are not allowed to be character literals 


procedure GET_CHARACTER_LIT( TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
STATE : positive := 13 
DONE : boolean := FALSE} 

begin 
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while (not DONE) loop 


case STATE is 
-- store the character in the lexeme buffer 


-- and increment the lexeme pointer 
when 1 => TOKEN_RECORD.LEXEME(LEXEME_LENGTH) := NEXT_CHARACTER} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 


if {(LOOKAHEAD_ONE_CHARACTER = ''')} then 

STATE := 23 

GETNEXTCHARACTER{ NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }3 
elsif (character 'pos{ LOOKAHEAD_ONE_CHARACTER } 

in FORMATORS) then 

ERROR_MESSAGE( TOKEN_RECORD.TOKEN_TYPE }3 


else 
STATE := 23 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )+ 
end if3 
when 2 => if {LOOKAHEAD_ONE_CHARACTER = ''') then 


-- store the character in tne lexeme bu7fer 

-- and increment the lexeme pointer 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTER} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }3 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTERS 


else 
-- one single quote found, classify as accent mark 
-- change token type from character lLiterai to deiimiter 
TOKEN_RECORD.7OKEN_TYPE := OELIMITER; 
NEXT_838UFFER_INDEX := CURRENT_3UFFER_INDEXs 
end if; 
DONE := TRUE; 


when others => null; 
end case} 
end loop; 
end GET_CHARACTER_LIT3 


-- this procedure identifies a string which is a sequence of Zero or 
-- more characters between double quotes 


procedure GET_STRING_LIT(TOKEN_RECORD : in out TOKEN_RECORD_TYPE }is 
STATE : positive := 13 
DONE : boolean := FALSE} 
begin 
while (not DONE) loop 
-- store the character in the lexeme buffer 
-- and increment the lexeme pointer 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTERS$ 
LEXEME_LENGTH := LEXEME_LENGTH + 13 


case STATE is 


when 1 => if (LOOKAHEAD_ONE_CHARACTER = ‘"') then 
STATE := 23 -- two consecutive quotes seen 
else 
STATE := 43  -- one or more characters in the string 
end if} 
GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }3 
when 2 => if (LOOKAHEAD_ONE_CHARACTER = ‘'"') then 
STATE := 33 -- three consecutive quotes seen 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }3 
else 
DONE := TRUE$ -- string of zero characters accepted 
end if3 
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when 3 => 


when 4 => 


when 5 => 


wnen 6 => 


if (LOOKAHEAD_ONE_CHARACTER = '"') then 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER J} 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTERS} 
LEXEME_LENGTH := LEXEME_LENGTH + 13 
DONE := TRUE} -- four consecutive quotes 
-- string of one printable quote accepted 


else 
STATE := &} 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
end if} 
if (LOOKAHEAD_ONE_CHARACTER = '"') then 
STATE := 53 


GE TNEXTCHARACTER( NEXT _CHARACTER, LOOKAHEAD_ONE _CHARACTER )3 
alsif (cnaracter'sos(NEXT_CHARACTER?} in -ORMATORS) then 
cRROR_MESSAGE( TOKEN_RECORD.TOKEN_TYPE )3 


else 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER})3 
end if3 
if (LOOKAHEAD_ONE_CHARACTER = ‘"') then 
STATE := 63 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }3 
else 
QONE := TRUE; -- string literal accepted 
end ifs 
if (LOOKAHEAD_ONE_CHARACTER = ‘'"'?) then 
STATE := §&3 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE _CHARACTER )3 
else 
STATE := 43 
GETNEXTCHARACTER( NEXT _CHARACTER, LOOKAHEAD _ONE_CHARACTER }3 
end if} 


when others => nulls 


end case} 
end loop} 
end GET_STRING_LIT} 


end LOW_LEVEL_SCANNER} 
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LUCE: AN ADA SOFTWARE METRIC sasha 
-- MODULE NAME: MENU_DISPLAY -- 
-- DATE CREATED: 11 OCT 86 -- 
-- LAST MODIFIED: 01 DEC 86 -- 


-- AUTHORS: LCDR JEFFREY L. NIEDER == 
a LT KARL S. FAIRBANKS, JR. i 


-- DESCRIPTION: This package contains the procedures that -- 
-- produce the menus which allow the user to select a -- 
-- specific ‘AdaMeasure' operation. -- 
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with GENERAL_DATA, HALSTEAD_DISPLAY, INITIAL_DISPLAY, DISPLAY_SUPPORT , 
GLOBAL_PARSER, GLOBAL, TEXT_IO} 
use GENERAL_DATA, HALSTEAD_DISPLAY, INITIAL_DISPLAY, DISPLAY_SUPPORT , 
GLOBAL_PARSER, GLOBAL, TEXT_IO3$ 


package MENU_DISPLAY is 
Procedure MENU; 
procedure INITIAL_MENU} 
procedure VIEW_HENRY 3 
end MENU_DISPLAY 5 


package body MENU_DISPLAY is 


-- this procedure displays the metric selection menu from which the user 
-- can make the appropriate selection. 
procedure MENU is 
DONE : boolean := FALSE} 
begin 
while not DONE loop 
CLEARSCREEN} 
new_lines 
PU t ("9363636 36 3696 363696 IE3E 36 IE IEE EE IE 3E 3E IEE 3E IEE 3E 36 IE DE 3E 36 IE IE DE IE 9 IE 3E 36 IEE 3E IE IE EE 9 3E EE 36 9E3E EET) 5 
POUT (18 36363636 SEE HE IE IE HEE EE IEIEIE NE HIER HH" TS Mew _Lines 


put( Wx ys 
put(" ¥" 33 new_Lline}3 
put( "x METRIC SELECTION MENU ane 
put(" *"" 33 new_line}3 
put( LEY Dy 
put(" ¥" 33 new_lines 
put('"'x HERE ARE THE INFORMATION CHOICES AVAILABLE" 33 
put(" TO YOU *"}3 new _Line} 
put( Wx ") } 
put(" *"}3 new_lines 
put( ''x Simply enter the number of your choice" }}3 
put(" *" 3 new_line}3 
put( TRY; rT) 33 
put(" *" J} new_line3s 
put('"x 1 - ‘HALSTEAD' METRIC INFORMATION "33 
put(" *"}$ new_line} 
put( Wy aa ye 
put(" *"" 33 new_lines 
put( "x 2 - COMMENT AND NESTING METRIC INFORMATION" 33 
put(" *")3 new_Llines 
put( 13% La 
put(" *" 33 new_Llines 
put( "x 3 - ‘HENRY and KAFURA' METRIC INFORMATION ''33 
put(" ¥*"')3 new_Lline} 
put( V3 )3 
put(" ¥*")3 new_lLine}3 
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put( "x G4 - EXIT TO MAIN MENU Js 


put(" *")3 new_lines 
put( 13 ") 5 
put(" *" 3 new_lines 
put( "x 5 - EXIT TO OPERATING SYSTEM ae 
put(" *")3 new_lines 
put( 1 )5 
put(" *")3 new_lines 


POU t ("836363636 29636 IE HEI HE FE IE IE HEHE IE HE HED IE HEI HE DE IE HE IE ENE FE IE JE FEE HEE HEE FEE FE IESE HII IEEE) 5 

Ut ("933636963636 96926 HE 36 HE ETE HEHE HEHE HEHEHE HN" VS Mew _Linel(2)5 

put("Choice = ');3 

get( ANSWER )35 

get_line( DUMMY_FILE_NAME, LENGTH_OF_LINE)3 -- flush system input buffer 
new_linet 2 )3 


case ANSWER is 
when ‘1' => HALSTEAD$3 
when '2' => VIEW_GENERAL; 
when ‘3° => VIEW_HENRY;} 
when ‘'G@' => DONE := TRUE$ 
when ‘5' => raise QUIT_TO_OS;} 


when others => nulls 
end case} 
end loops 
end MENU; 


-- this procedure displays the main selection menu which allows the user 
-- to choose to parse a file, view previously gathered data, or quit to 
-- the operating system. 
procedure INITIAL_MENU is 
DONE : boolean := FALSE; 
begin 
INTRODUCTION, 
while not DONE loop 
CLEARSCREEN;} 
new_line; 
PU t ("93636363696 3 369 IEEE FE IE HE IE IEDC DE IE BE BEE IE IE HE IE DE DEBE IE BE DE DE DE IE HEE BE IE HE IE BE DEE BEBE DE 3E9E IEEE IEEE) 5 
POU t ( '* 363636 3636 36 3636 HE IE FE DE HE HE DE HE HEHE HEHE HHH" VY MEew_Lines 


put ( "x ys 
put(" *" 35 new_lines 
put( "x MAIN SELECTION MENU ")5 
put(" *" J}, new_lines 
put( x Ds 
put(" *'" )s new_lines 
put ("x HERE ARE THE ACTION CHOICES AVAILABLE TO ")s 
put ("YOU *'"")5 new _lines 
put( "x D3 
put(" *'"J3 new_lines 
put( "x Simply enter the number of your choice" )5 
put(" *'"J3 new_lines 
put( "x mg 
put(" *'"" J), new_lines 
put( "x lL - PARSE AN INPUT FILE "D5 
put(" *" Js new _lines 
put( "x )5 
put(" *" Js new_lines 
put ( 'x 2 - VIEW PREVIOUSLY GATHERED DATA so 
put(" *'"")3 new_lines 
put( ''x "D5 
put(" *'"')3 new_lines 
put( "x 3 - EXIT TO OPERATING SYSTEM mes 
put(" *"")3 new_lines 
put( "x ay 
put(" *"")3 new_lines 


POU £ (883636 3636365636 36 363 36 3E HE IE IE EE IE EE IE HEE IE SESE IEE HE 3E IE SE 3E IE FE EE EE EEE IE FE IE HE IE FE E36 36 39636 9636" Dg 
POU t ("363636 E36 3E3E 36 3 3E5E EE HE HE 30 EH HEHEHE DS New Linel 2 )35 

put("Choice = ")s 

get( ANSHER ); 
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get_line( DUMMY_FILE_NAME, LENGTH_OF_LINE}; -- flush system input buffer 
new_line(2)} 
case ANSWER is 
when ‘'l' => RESET_PARAMETERS} 
INITIAL_SCREEN} 
MENU; 
when '2' => MENU} 
when '3' => raise QUIT_TO_OS} 
when others => nulls 
end case} 
end loop; 
end INITIAL_MENU; 


-- this procedure is just a placenolider for the implementation of the 
-- Henry and Katura complexity flow metric. 
procedure VIEW_HENRY is 
HOLD_CHARACTER : cnaracter’s 
oegin 
CLEARSCREENS$ 


new_line(2)}5 

put("This software metric has not yet been implemented into this')3 
new_lines 

put("program. It 1s hoped that this information will ove added in''); 
new_line; 

put("the very near future.'"); 

new_linei2})35 


new_linet2)5 
put(" --- Enter any letter to continue --~-"); 
new_lLines 
get(HOLD_CHARACTER ); 
end VIEW_HENRY 3 


end MENU_DISPLAY;} 
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APPENDIX D 
‘ADAMEASURE’ PROGRAMI LISTING - PART 2 
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== TEVEE: AN ADA SOFTWARE METRIC o 
-- MODULE NAME: PACKAGE HALSTEAD_METRIC ss 
-= OATE CRE aco. 0¢ OCT 86 -~ 
~~ CAST MODLIETES:. 201) DeGecs pe 


-- AUTHORS: LCDR JEFFREY L. NIEDER -- 
"= LT <ARL S. FAIRBANKS, JR. qe 
-- DESCRIPTION: This package contains all of the declarations -- 
-- and data structures required by our metric. as well as -- 
-- all necessary procedures and functions for gathering -- 
-- and storing the metric data. -- 
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with GLOBAL, GLOBAL_PARSER, BYPASS_SUPPORT_FUNCTIONS, TEXT_<03 
use GLOBAL, GLOBAL_PARSER, 3YPASS_SUPPORT FUNCTIONS. TEXT_i0;3 


package HALSTEAD_METRIC is 
package NEW_INTEGER_I0 is new TEXT_I0O.INTEGER_IOl integer 3); 


use NEW_INTEGER_203 


SCOPE_ON : constant boolean := TRUE; 
SCOPE_OFF : constant Doolean ;= FALSE; 
PACKAGE_DECLARE : constant integer := 03 
PROCEDURE_DECLARE : constant integer := 13 
FUNCT ION_DECLARE : constant integer := 23 
TASK_DECLARE : constant integer := 33 
BLOCK_DECLARE ; constant integer := 43 
VARIABLE_DECLARE : constant integer := 5; 
CONSTANT _DECLARE : constant integer := 63 
NO_DECLARE >: constant integer := 73 
IF_CONSTRUCT : constant integer := 03 
LOOP_CONSTRUCT : constant integer := 13 
WHILE_CONSTRUCT : constant integer := 23 
FOR_CONSTRUCT ; constant integer := 33 
CASE_CONSTRUCT : constant integer ;:= 43 
IF_END ; constant integer := 53 
LOOP_END : constant integer := 63 
CASE_END ; constant integer := 73 
NUMBER_OF_OPERANDS : constant integer := 5003 
FIRST_LEVEL_NEST : constant integer := 13 
MAXIMUM_NESTING : constant integer := 153 
type OPERATOR_ARRAY_TYPE is 
array (TOKEN_AND..TOKEN_ASSIGNMENT) of integer; 
type OPERAND_TYPE}3 
type LINK is access OPERAND_TYPE; 
type OPERAND_TYPE is 
record 

OPERAND : string(1..LINESIZE ); 

SIZE : natural; 

NEXT_OPERAND > LINK; 


end record}; 
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type OPERAND_MATRIX is 


record 
SCOPE : integer} 
REFERENCE : integer := 03 


DECLARATION_TYPE : integers 
LEXEME_ADDRESS : LINK} 
end record} 


type HALSTEAD_OPERAND_ARRAY is 
array(0..NUMBER_OF_OPERANDS) of OPERAND_MATRIX} 


type NESTED_COUNT_TYPE is 
array( FIRST_LEVEL_NEST..MAXIMUM_NESTING) of integers 


type CONSTRUCT_COUNT_TYPE is 
array(IF_CONSTRUCT..CASE_CONSTRUCT) of integers 


OPERATOR_ARRAY : OPERATOR_ARRAY_TYPE := (TOKEN_AND..TOKEN_ASSIGNMENT => 0)3 
NESTED_COUNT : NESTED_COUNT_TYPE := (FIRST_LEVEL_NEST..MAXIMUM_NESTING => 0)3 


CONSTRUCT_COUNT : CONSTRUCT_COUNT_TYPE := (IF_CONSTRUCT..CASE_CONSTRUCT => 0)3 


SYMBOL_TABLE : HALSTEAD_OPERAND_ARRAY 3 
HEAD_NODE, NEW_NODE : LINK$ 

DECLARE_TYPE : integer := VARIABLE_DECLARE 3 
CURRENT_NESTING_LEVEL : integer := 03 
MAXIMUM_NESTING_LEVEL : integer := 03 
TOTAL_OPERAND_COUNT ; integer := 0% 
NESTING_LINE_NUMBER : integer := 0; 
SYMBOL_TABLE_INDEX : integer := 03 

SCOPE_LEVEL : integer} 

LAST_ENTRY_INDEX : integers} 


NESTED_LEVEL_INCREASE : boolean := TRUE} 
NO_ITERATION : boolean := TRUE} 


procedure OPERATOR_METRIC(OPERATOR_INDEX : in integers 
CONSUME, RESERVE_WORD_TEST : in boolean)s 

procedure OPERAND_METRIC(HEAD_NODE : in out LINK} 

LEXEME_RECORD : in out TOKEN_RECORD_TYPE} 

DECLARE_TYPE : in integer )}3 
procedure INITIALIZE_OPERAND_LIST(DATA_FILE_NAME : in out strings 

HEAD_NODE : in out LINK)3$ 
procedure ADD_SYMBOL(TEMP_NODE : in out LINK} DECLARE_TYPE : in integer )3 
function DUPLICATE_LEXEME(TEMP_NODE : in LINK) return boolean; 
procedure REFERENCE_UPDATE(SYMBOL_TABLE_INDEX : in out integer)3 
procedure WRITE_OPERATOR_TABLE(OUTPUT1L, OUTPUT2, OUTPUT3 : in out file_type)s 
procedure WRITE_OPERAND_TABLE(OUTPUT1, OUTPUT2 : in out file_type)s 
procedure NESTING_METRIC(NEST_TYPE : in integer J} 
procedure WRITE_NESTING_TABLE(OUTPUT_FILE : in out file_type)s 
end HALSTEAD_METRIC} 


package body HALSTEAD_METRIC is 


-- this procedure updates the operator array based on the parsing of a 

-- valid Halstead operator. 
procedure OPERATOR_METRIC(OPERATOR_INDEX : in integers} 

CONSUME, RESERVE_WORD_TEST : in boolean) is 

begin 

1f (CONSUME) and then not (RESERVE_WORD_TEST) then 

OPERATOR_ARRAY(OPERATOR_INDEX) := OPERATOR_ARRAY(OPERATOR_INDEX) + 13 
end if} 
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end OPERATOR_METRIC}3 
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-- this procedure builds the symbol table for the input file, and 
-- calls the appropriate procedure for entering or updating Halstead 
-- operand information. 
procedure OPERAND_METRIC(HEAD_NODE : in out LINK} 
LEXEME_RECORD : in out TOKEN_RECORD_TYPE} 
DECLARE_TYPE : in integer) is 
TEMP_NODE, TRAILER : LINK} 
INPUT_LEXEME : string(1..LINESIZE )3 
FOUND : boolean} 
SIZE : naturals 
begin 
TRAILER := HEAD_NODEs$ 
TEMP_NODE := HEAD_NODE.NEXT_OPERAND 3} 
INPUT_LEXEME := LEXEME_RECORD.LEXEME ; 
SIZE := LEXEME_RECORD.LEXEME_SIZE — 1; 
FOUND := FALSE$ 
while (TEMP_NODE /= null) loop 
if (ADJUST_LEXEME(INPUT_LEXEME, SIZE) = 
ADJUST_LEXEME(TEMP_NODE.OPERAND, TEMP_NODE.SIZE))} then 
FOUND := TRUE; 
else 
TRAILER := TEMP_NODE; 
TEMP_NODE := TEMP_NODE .NEXT_OPERAND s} 
end ifs 
exit when FOUND} 
end loop; 
1f not (FOUND) then 
NEW_NODE := new OPERAND_TYPE3$ 
NEW_NODE.OPERAND := INPUT_LEXEME 3 
NEW_NODE.SIZE := LEXEME_RECORD.LEXEME_SIZE - 15 
NEW _NODE .NEXT_OPERAND := nulls 
TRAILER.NEXT_OPERAND := NEW_NODE 3} 
TEMP_NODE := NEW_NODE3} 
end if3 
if not (DUPLICATE_LEXEME(TEMP_NODE)) then 
ADD_SYMBOL( TEMP_NODE, DECLARE_TYPE )}3 
else 
REFERENCE_UPDATE(SYMBOL_TABLE_INDEX )3 
end if} 
end OPERAND_METRIC$ 


-- this procedure initializes the head node for the symbol table. 

procedure INITIALIZE_OPERAND_LIST(DATA_FILE_NAME : in out string} 
HEAD_NODE : in out LINK) is 

begin 

HEAD_NODE := new OPERAND_TYPE;} 

HEAD_NODE.OPERAND := DATA_FILE_NAME} 

HEAD_NODE.NEXT_OPERAND := null} 

SYMBOL_TABLE_INDEX := 03 

SCOPE_LEVEL := QO} 

LAST_ENTRY_INDEX := 03 
end INITIALIZE_OPERAND_LIST} 


-- this procedure adds all of the information about a variable when 
-- it is initially parsed. 
procedure ADD_SYMBOL(TEMP_NODE : in out LINK; DECLARE_TYPE : in integer) is 
begin 
SYMBOL_TABLE( LAST_ENTRY_INDEX).LEXEME_ADDRESS := TEMP_NODE} 
if (DECLARATION) then 
SYMBOL_TABLE( LAST_ENTRY_INDEX ).DECLARATION_TYPE := DECLARE_TYPE;s 
SYMBOL_TABLE( LAST_ENTRY_INDEX).SCOPE := SCOPE_LEVELs 
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SYMBOL_TABLE(LAST_ENTRY_INDEX).REFERENCE := 03 
else -- a global variable 
if (DECLARE_TYPE = CONSTANT_DECLARE) then 
SYMBOL_TABLE(LAST_ENTRY_INDEX).DECLARATION_TYPE := CONSTANT_DECLARE: 
else 
SYMBOL_TABLE(LAST_ENTRY_INDEX).DECLARATION_TYPE := NO_DECLAREs$ 
end if} 
SYMBOL_TABLE(LAST_ENTRY_INDEX).SCOPE := 03 
SYMBOL_TABLE( LAST_ENTRY_INDEX}. REFERENCE := 13 
end ifs 
LAST_ENTRY_INDEX := LAST_LENTRY_INDEX + 13 
end ADD_SYMBOL+$ 
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-- this function determines if the current operand is already in the 
-- symbol table. If locatedqd, the symbol «able index is set to the 
-- appropriate sosition. 

function DUPLICATE_!EXEME(TEMP_NODE : in LINK) return boolean is 


TEST_NAME : string(1..LINESIZE ); 
INPUT_LEXEME : string(1..LINESIZE )35 
INPUT_SIZE : naturals 
Test _SIZE ; naturals 
LOCATED : boolean; 

begin 


LOCATED := FALSE; 
TNPUT_LEXEME := TEMP_NODE.OPERAND; 
INPUT_SIZE := TEMP _NODE.SIZE3 
for I in 9..{(LAST_ENTRY_INDEX-1)} loop 
TEST_NAME := SYMBOL_TABLE(I).LEXEME ADDRESS.OPERANDS 
mespesize «= SYMBOL _TABLE(L).LEXEME _&0DRESS .SIZE; 
tf (ADJUST_LEXEME( TEST _NAME, TEST_SiZE) = 
ADJUST_LEXEME(CINPUT_LEXEME, INPUT_SIZE}} then 
LOCATED := TRUE; 
SYMBOL_TABLE_INDEX := T}3 
end if} 
exit when LOCATED$ 
end loops 
return (LOCATED )3 
end DUPLICATE_LEXEME 3 


-- this procedure updates the reference count when an operand is parsed, 
-- after initial entry into the symbol table. 
procedure REFERENCE_UPDATE(SYMBOL_TABLE_INDEX : in out integer) is 
begin 
SYMBOL_TABLE(SYMBOL_TABLE_INDEX).REFERENCE := 
SYMBOL_TABLE(SYMBOL_TABLE_INDEX).REFERENCE + 13 
TOTAL_OPERAND_COUNT := TOTAL_OPERAND_COUNT + 13 
end REFERENCE_UPDATE $ 


-- this procedure writes the Halstead operator count data to the 
-- appropriate files. 
procedure WRITE_OPERATOR_TABLE(OUTPUT1, OUTPUT2, OUTPUT3 : in out file_type) is 
OPERATORS_USED, OCCURENCES : integer := 03 
begin 
for I in TOKEN_AND..TOKEN_ASSIGNMENT loop 
if (OPERATOR_ARRAY(I) /= 0) then 
OPERATORS_USED ;:= OPERATORS_USED + 13 
OCCURENCES := OCCURENCES + OPERATOR_ARRAY(T )3 
end ifs 
put( OUTPUT], OPERATOR_ARRAY(I), 5)3 
end loops 
new_line(OUTPUT1 )3 


for I in IF_CONSTRUCT..CASE_CONSTRUCT loop 
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if (CONSTRUCT_COUNT(I) /= 0) then 
OPERATORS_USED := OPERATORS_USED + 13 
OCCURENCES := OCCURENCES + CONSTRUCT_COUNT(I )3 
end if} 
put(OUTPUT1, CONSTRUCT_COUNT(I), 5)3 
end loops 


put(OUTPUT1, OPERATORS_USED, 5)3 
put(QUTPUT1, OCCURENCES, 5)5 


put(OQUTPUT2Z, TOTAL_LINES_INPUT, 5)3 
put(OQUTPUT2, COMMENT_COUNT, 5)3 


put(OUTPUT3, OPERATORS_USED, 533 
putt OUTPUTS, OCCURENCES, 5)3 


ena WRITE_OPERATOR_TABLE3 


~~ ee ee ee ee oe ae ae ee om om om om om om om om om a8 we ee om om om om om om ae om om om om ae om om om om ae © om o om om om om @ a8 ae ae =) es a ee SE es ee ee oe ee ee ee ee ee ee a ee ee ee 


-- tnis procedure writes the Halstead operand information to the 
-- appropriate files. 
procedure WRITE_OPERAND_TABLE(OUTPUT1, OUTPUT2 : in out file_type) is 
NAME : string(1..LINESIZE )35 
SIZE : inteser; 
9egin 
out{CUTPUT1, LAST_ENTRY_INDEX - 1, 5)3 
put(OUTPUT2, LAST_ENTRY_INDEX - 1, 533 
aut(OUTPUT1, TOTAL_SPERAND_COUNT, 5)3 
put(OQUTPUTZ, TOTAL_OPERAND_COUNT, 5335 
new_ linet OUTPUT}; 
for i in 0..(LAST_ENTRY_INDEX-1) loop 
NAME := SYMBOL_TABLE(I).LEXEME_ADORESS.OPERAND 3 
SIZE := SYMBOL_TABLE(1I). LEXEMETADDRESS-Sizc; 
put(OUTPUT1, SYMBOL_TABLE(I}.SCOPE, 5)5 
put(OQUTPUT1, SYMBOL_TABLE(I).REFERENCE, 533 
put(OUTPUT1, SYMBOL_TABLE(I}.DECLARATION_TYPE, 5)3 
CONVERT_UPPER_CASE(NAME, SIZE )3 
put(OUTPUT1, ADJUST_LEXEME(NAME, SIZE) )3 
new_line(OUTPUT1 )3 
end loop}; 
end WRITE_OPERAND_TABLE 3 


-- this procedure maintains the maximum nesting level attained, the number 
-- of times each nesting level is reached, and the number of times each 
-- nesting construct is utilized. 
procedure NESTING_METRIC(NEST_TYPE : in integer) is 
begin 
case NEST_TYPE is 
when IF_CONSTRUCT LOOP_CONSTRUCT WHILE_CONSTRUCT 
FOR_CONSTRUCT CASE_CONSTRUCT 
=> CONSTRUCT_COUNT(NEST_TYPE) := CONSTRUCT_COUNT(NEST_TYPE) + 13 
NESTED_LEVEL_INCREASE := TRUE} 
CURRENT_NESTING_LEVEL := CURRENT_NESTING_LEVEL + 13 
if (CURRENT_NESTING_LEVEL > MAXIMUM_NESTING_LEVEL) then 
MAXIMUM_NESTING_LEVEL := CURRENT_NESTING_LEVELS$ 
NESTING_LINE_NUMBER := TOTAL_LINES_INPUT } 
end if} 


when IF_END LOOP_END CASE_END => 
if (NESTED_LEVEL_INCREASE) then 
NESTED_COUNT(CURRENT_NESTING_LEVEL) := 
NESTED_COUNT(CURRENT_NESTING_LEVEL) + 13 
NESTED_LEVEL_INCREASE := FALSE} 
end if} 
CURRENT_NESTING_LEVEL := CURRENT_NESTING_LEVEL - 13 
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when others => null}; 
end case} 
end NESTING_METRIC} 


-- this procedure writes the nesting metric data to the appropriate file. 
procedure WRITE_NESTING_TABLE(OUTPUT_FILE : in out file_type) is 
begin 

new_line( OUTPUT_FILE )3 

for I in IF_CONSTRUCT..CASE_CONSTRUCT loop 

put(OUTPUT_FILE, CONSTRUCT_COUNT(I), 5)3 

end loop; 

new_line( OUTPUT_FILE }3 

put(OUTPUT_FILE, MAXIMUM_NESTING_LEVEL, 5)3 

new_line( OUTPUT_FILE); 

PUT(OUTPUT_FILE, NESTING_LINE_NUMBER, 5)5 

new_line(OUTPUT_FILE ); 

for I in FIRST_LEVEL_NEST..MAXIMUM_NESTING loop 

put(OUTPUT_FILE, NESTED_COUNT(I), 5)5 

end loop; 

end WRITE_NESTING_TABLE3 


end HALSTEAD_METRIC; 


oF 


HEHE HEH HEH HIE IE HEHE HEHEHE HE HEHEHE HEH HEHE HEIL HE HEHEHE HEHEHE HEHEHE HEHEHE HE HEHEHE HEHEHE HEHEHE HHH HH HHH HHH KKM 


-- TITLE: 


~- MODULE NAME: 


~~ DATE CREATED: 
== LAST MOBTETED: 


-- AUTHORS: 


-- DESCRIPTION: 


-- numeric types: 


AN ADA SOFTWARE METRIC == 


PACKAGE NUMERIC == 
13 JUN 86 == 
0% NOV 86 =< 


LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. == 


This package is used to identify the following -- 


integer, real, based integer, and ae 


-- scientific notation. -- 


HEHEHE HE HEE IEE HEHE EI ME EH HEE EE HE IEE HE IE HEHE EI EE HE HIE IE IEE IE HEHEHE HEE IE HE HIE HHH HHH HH HH HK HOM 


with GLOBAL, GET_NEXT_CHARACTERS 
use GLOBAL, GET_NEXT_CHARACTER} 


package NUMERIC 


is 


procedure GET_NUMERIC_LIT(TOKEN_RECORD : in out TOKEN_RECORD_TYPE )3 


end NUMERIC} 


Ce ee ee ee ee ee ee De de ee ee ee EE ee ee er eee ee ee se ee ee ee ee 


package body NUMERIC is 


procedure GET_NUMERIC_LIT(TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
FALSE 5 


DONE : boolean : 
STATE : positive 


begin 


while (not DONE) loop 


-- store the character in the lexeme buffer 
-- and increment the lexeme pointer 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH) := NEXT_CHARACTERS 


LEXEME_LENGTH 


= 
7 


LEXEME_LENGTH + 13 


-- each option in the case statement is a state in the finite 
-- state automata for determining numeric literals. Ada allows 
-- the use of the underscore to aid readability of long numeric literals 


case STATE is 


when 1 


=> 


if (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 


STATE := 13 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
elsif (LOOKAHEAD_ONE_CHARACTER = ‘.') then 

STATE := 23 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )}3 
elsif ((LOOKAHEAD_ONE_CHARACTER = ‘'E') or 

(LOOKAHEAD_ONE_CHARACTER = ‘e')) then 

STATE 3:= 173 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD ONE_CHARACTER )3 
elsif (LOOKAHEAD_ONE_CHARACTER = '_') then 

STATE := 93 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )}3 
elsif ((LOOKAHEAD_ONE_CHARACTER = '#') or 

(LOOKAHEAD_ONE_CHARACTER = ':')) then 

STATE := 103 

GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE CHARACTER )3 
elsif ((LOOKAHEAD ONE_CHARACTER not in UPPER_CASE_LETTER) and 

(LOOKAHEAD_ONE_CHARACTER not in LOWER_CASE_LETTER) and 

(LOOKAHEAD_ONE_CHARACTER /7= ‘''') and 

(LOOKAHEAD_ONE_CHARACTER /7= '"'')) then 


DONE := TRUE} -- universal integer accepted 
else 

ERROR_MESSAGE( TOKEN_RECORD.TOKEN_TYPE )3 
end if} 
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when 2 => if (LOOKAHEAD_ONE_CHARACTER = '.') then --test for range dots 
TOKEN_RECORD.LEXEME( LEXEME_LENGTH - 1) := ' '‘$ 
LEXEME_LENGTH := LEXEME_LENGTH - 13 
NEXT_BUFFER_INDEX := CURRENT_BUFFER_INDEX3 


DONE := TRUE3 -- wniversal integer preceded these 
-- range dots 
elsif (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 


STATE := 33 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) 3 
else 
ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE }}3 
end if3 
when 3 => if (LOOKAHEAD_CNE_CHARACTER in DIGITS_TYPE)} then 
SrATE += 4a 


Ge TNEXT CHARACTER! NEXT_CHARACTER, LOOKAHEAD_ONE _CHARACTER }3 
@isif {((LOOKAHEAD_ONE_CHARACTER = ‘€') or 
f LOOKAHEAD_ONE_CHARACTER = ‘'2'3} then 


STATE := 43 

GE TNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_ CHARACTER 33 
elsif (LOOKAHEAD_ONE_CHARACTER = '_') then 

STATE := 53 


GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER ) 5 
elsif ((LOOKAHEAD_ONE_CHARACTER not in UPPER_CASE_LETTER?} and 
(LOOKAHEAD_ONE_CHARACTER not in LOWER_CASE_LETTER) and 


( LOOKAHEAD_ONE_CHARACTER /= ''') ana 

(LOOKAHEAD_ONE_CHARACTER /= '"')) then 
DONE := TRUE} -- universal real accepted 

else 
ERROR_MESSAGE ( TOKEN_RECORD. TOKEN_TYPE }3 

end if} 

when 4 => if ((LOOKAHEAD_ONE_CHARACTER = °*+') or 

(LOOKAHEAD_ONE_CHARACTER = ‘-'?})) then 
STATE := 63 


GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )}3 
elsif (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 
STATE := 73 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )}3 
else 
ERROR_MESSAGE( TOKEN_RECORD. TOKEN_TYPE }3 
end if} 
when 5 6 8 9 => 
if (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 
case STATE is 


when 5 => STATE := 33 

when 6 8 => STATE := 73 

when 9 => STATE := 13 
} 


when others => null 
end case} 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 


else 
ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE )}3 
end if} 
when 7 => if (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 
STATE := 73 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )} 
elsif (LOOKAHEAD_ONE_CHARACTER = '_') then 
STATE := 83 


GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
elsif ((LOOKAHEAD_ONE_CHARACTER not in UPPER_CASE_LETTER) and 
(LOOKAHEAD_ONE_CHARACTER not in LOWER_CASE_LETTER) and 

(LOOKAHEAD_ONE_CHARACTER /= ''') and 
( LOOKAHEAD_ONE_CHARACTER 7= ''''})} then 


DONE := TRUE} -- integer or real in scientific notation 
else 

ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE )}3 
end if} 
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when 10 12 14 16 => 
if ({LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) or 
( LOOKAHEAD_ONE_CHARACTER in UPPER_CASE_HEX) or 
( LOOKAHEAD_ONE_CHARACTER in LOWER_CASE_HEX)) then 
case STATE is 
when 10 12 => STATE 
when 1¢ 16 => STATE 
when others => nulls 
end case} 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }}3 
else 
ERROR_MESSAGE( TOKEN_RECORD. TOKEN_TYPE )3 
end if; 
when ll => 1# ((LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) or 
{ LOOKAHEAD_ONE _CHARACTER in UPPER _CASE_HEX) or 
{ LOOKAHEAD_ONE_CHARACTER in LCWER_®SASE_HEX)) then 


pe 
153 


STATE := 115 

GETNEXTCHARACTER( NEXT _CHARACTER, “OOKAHEAD_CNE CHARACTER })3 
@lsif (LOOKAHEAD_ONE_CHARACTER = '.') then 

TATE := 143 


GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER })3 
elsif ({LOOKAHEAD_ONE_CHARACTER = '#') or 

( LOOKAHEAD_ONE_CHARACTER = ':')) then 

STATE s=55, 

GETNEXTCHARACTER( NEXT CHARACTER, LOOKAHEAD_ONE_CHARACTER}; 
elsif (LOCKAHEAD_ONE_CHARACTER = '_') then 

STATE := 123 

GETNEXTCHARACTERI(NEXT_CHARACTER, LOCKAHEAD_ONE_CHARACTER )3 
else 

ERROR_MESSAGE( TOKEN_RECORD. TOKEN_TYPE }3 
end if’ 

wnen i135 => i? ((LOOKAHEAD_SNE_CHARACTER = ‘€'}) or 

( LOOKAHEAD_ONE_CHARACTER = ‘'3')) then 

STATE 2221073 

GETNEXTCHARACTER( NEXT_CHARACTER, LOCOKAHEAD_CNE _CHARACTER})s 
elsif ((LOOKAHEAD_CNE_CHARACTER not in UPPER_CASE_LETTER) and 

( LOOKAHEAD_ONE_CHARACTER not in LOWER_CASE_LETTER) and 

( LOOKAHEAD_ONE_CHARACTER /= ''') and 

(LOOKAHEAD_ONE_CHARACTER /7= '"')) then 


DONE := TRUE} -- based integer accepted 
else 
ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE )3 
end if} 
when 15 => if ((LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) or 
( LOOKAHEAD_ONE_CHARACTER in UPPER_CASE_HEX)} or 
( LOOKAHEAD_ONE_CHARACTER in LOWER_CASE_HEX)) then 
STATE := 153 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER }}3 
elsif (LOOKAHEAD_ONE_CHARACTER = '_') then 
STATE := 163 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
elsif ((LOOKAHEAD_ONE_CHARACTER = '#') or 
( LOOKAHEAD_ONE_CHARACTER = ':')) then 
STATE := 133 
GETNEXTCHARACTER( NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
else 
ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE )3 
end if} 
when 17 => if (LOOKAHEAD_ONE_CHARACTER in DIGITS_TYPE) then 
STATE := 73 
GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 
elsif (LOOKAHEAD_ONE_CHARACTER = '+') then 
STATE := 653 
GETNEXTCHARACTER(NEXT_CHARACTER;, LOOKAHEAD_ONE_CHARACTER )}3 
else 
ERROR_MESSAGE ( TOKEN_RECORD.TOKEN_TYPE )3 
end if} 
when others => nulls 
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end case} 
end loops 
end GET_NUMERIC_LITs 


end NUMERIC}; 
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-- TITLE: AN ADA SOFTWARE METRIC == 
-- MODULE NAME: PACKAGE PARSER_O = 
-- DATE CREATED: 09 OCT 86 -- 
-- LAST MODIFIED: 03 DEC 86 -- 
-- AUTHORS: LCDR JEFFREY L. NIEDER == 
-- LT KARL S. FAIRBANKS, JR. -- 
-- DESCRIPTION: This package contains eight functions that -- 
-- make up the highest level productions for our top-down, -- 
-- recursive descent parser. -- 
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with PARSER_1, PARSER_2, PARSER_3, BYPASS_FUNCTICN, HALSTEAD_METRIC, 
GLOBAL_PARSER, GLOBAL, TEXT_I0O3 
use PARSER_1» PARSER_2> PARSER_3, BYPASS_FUNCTION, HALSTEAD_METRIC, 
GLOBAL_PARSER, GLOBAL, TEXT_IO}3 


package PARSER_O is 
function COMPILATION return boolean; 
function COMPILATION_UNIT return boolean; 
function CONTEXT_CLAUSE return booleans 
function BASIC_UNIT return booleans 
function LIBRARY_UNIT return boolean; 
function SECONDARY_UNIT return boolean; 
function LIBRARY_UNIT_BODY return boolean; 
function SUBUNIT return booleans 

end PARSER_O}3 


package body PARSER_O is 


-- COMPILATION --> [COMPILATION_UNIT ]+ 
function COMPILATION return boolean is 
begin 

put("In compilation ")3} new_line;s 

if (COMPILATION_UNIT) then 

while (COMPILATION_UNIT) loop 
nulls 
end loops 
return (TRUE )3 
else 
return (FALSE )3 

end if} 

end COMPILATION; 


-- COMPILATION_UNIT --> CONTEXT_CLAUSE BASIC_UNIT 
function COMPILATION_UNIT return boolean is . 
begin 

if (CONTEXT_CLAUSE) then 

if (BASIC_UNIT) then 
return (TRUE )3 
else 
return (FALSE )3 
end if} 
else 
return (FALSE )3 

end ifs 

end COMPILATION_UNIT} 


-- CONTEXT_CLAUSE --> [with WITH_OR_USE_CLAUSE [use WITH_OR_USE_CLAUSE ]* ]* 
function CONTEXT_CLAUSE return boolean is 
begin 
while (BYPASS(TOKEN_WITH)) loop 
if not (WITH_OR_USE_CLAUSE) then 
SYNTAX_ERROR("Context clause" )}3 
end if} 
while (BYPASS(TOKEN_USE)) loop 
if not (WITH_OR_USE_ CLAUSE) then 
SYNTAX_ERROR( "Context clause" )3 


end if} 
end loop; -- inner while loop 
end loop; -- outer while loop 


return (TRUE )3 
end CONTEXT_CLAUSE 3 


-- BASIC_UNIT --> LIBRARY_UNIT 
-- --> SECONDARY_UNIT 
function BASIC_UNIT return boolean is 
begin 
if (LIBRARY_UNIT) then 
return (TRUE J35 
elsif (SECONDARY_UNIT) then 
return (TRUE); 
else 
return (FALSE J3 
end ifs 
end BASIC_UNIT3 


-- LIBRARY_UNIT --> procedure PROCEDURE_UNIT 
=o --> function FUNCTION_UNIT 
-- --> package PACKAGE_DECLARATION 
-- --> generic GENERIC_DECLARATION 
function LIBRARY_UNIT return boolean is 
begin 
if (BYPASS(TOKEN_PROCEDURE )) then 
DECLARE_TYPE := PROCEDURE_DECLARE } 
if (PROCEDURE_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR(“Library unit" )3 
end if}; -- if procedure_unit statement 
elsif (BYPASS( TOKEN_FUNCTION)) then 
DECLARE_TYPE := FUNCTION_DECLARE} 
if ({FUNCTION_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Library unit" )3 
end if} -- if function_unit statement 
elsif (BYPASS(TOKEN_PACKAGE )) then 
DECLARE_TYPE := PACKAGE_DECLARE 3 
if (PACKAGE_DECLARATION) then 
return (TRUE); 
else 
SYNTAX_ERROR( "Library unit" )3 
end if} -- if package_declaration 
elsif (BYPASS(TOKEN_GENERIC)) then 
if (GENERIC_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Library unit" )3 
end if} -- if generic_declaration 
else 
return (FALSE )}3 
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end if; 
end LIBRARY_UNIT} 


-- SECONDARY_UNIT --> LIBRARY_UNIT_BODY 
-- --> SUBUNIT 
function SECONDARY_UNIT return boolean is 
begin 
if (LIBRARY_UNIT_BODY) then 
return (TRUE }3 
elsif (SUBUNIT) then 
return (TRUE )3 
else 
return (FALSE )3 
end if; 
end SECONDARY_UNIT} 


-- LIBRARY_UNIT_BODY <--> procedure PROCEDURE_UNIT 
-< --> function FUNCTION_UNIT 
-- --> package PACKAGE_DECLARATION 
—— --> generic GENERIC_DECLARATION 
function LIBRARY_UNIT_BODY return boolean is 
begin 
if (BYPASS(TCKEN_ PROCEDURE )) then 
DECLARE_TYPE := PROCEDURE_DECLARE} 
if (PROCEDURE_UNIT) then 
return (TRUE); 
else 
SYNTAX_ERROR( "Library unit body" )3 
end ifs ~- if procedure_unit statement 
elsif (BYPASS(TOKEN_FUNCTION)) then 
DECLARE_TYPE := FUNCTION_DECLARE}$ 
if (FUNCTION_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR(“Library unit body"); 
end if} -- if function_unit statement 
elsif (BYPASS(TOKEN_PACKAGE)) then 
DECLARE_TYPE := PACKAGE_DECLARE 3} 
if (PACKAGE_DECLARATION) then 
return (TRUE )} 


else 
SYNTAX_ERROR(“Library unit body" )}3 
end if} -- if package_declaration 
else 
return (FALSE )3 
end if} -- if bypass( tokKen_procedure) 


end LIBRARY_UNIT_BODY 3 


-- SUBUNIT --> separate (NAME) PROPER_BODY 
function SUBUNIT return boolean is 
begin 

if (BYPASS(TOKEN_SEPARATE)) then 

if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (NAME) then 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
if (PROPER_BODY}) then 
return (TRUE )}3 


else 
SYNTAX_ERROR( "Subunit" ) 3 
end if} -- if proper_body statement 
else 
SYNTAX_ERROR( "Subunit" )3 
end if} -~ if bypass(tokKen_right_paren) 
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else 
SYNTAX_ERROR( "Subunit" )5 
end ifs 
else 
SYNTAX_ERROR( "Subunit" )3 
end ifs 
else 
return (FALSE )35 
end ifs 
end SUBUNIT} 


end PARSER_03 


-- if name statement 


-- if bypass(token_left_paren) 


-- if bypass( token_separate ) 
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TLTEE: 


MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 


AN ADA SOFTWARE METRIC 


PACKAGE PARSER_1 
17 JUL 86 
03 DEC 86 


AUTHORS: LCDR JEFFREY L. NIEDER -- 
LT KARL S. FAIRBANKS, JR. => 
DESCRIPTION: This package contains thirty-six functions -- 


that make up the top level productions for our too-down,-- 


recursive descent parser. Each function is preceded 


by 


the grammar productions they are implementing. 
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with PARSER_2, PARSER_3, BYPASS_FUNCTION, HALSTEAD_METRIC, GLOBAL_PARSER, 
GLOBAL 5 

use PARSER_2, PARSER_3, BYPASS_FUNCTION, HALSTEAD_METRIC, GLOBAL_PARSER> 
GLOBAL 5 


package PARSER_1 is 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


GENERIC_DECLARATION return boolean; 
GENERIC_PARAMETER_DECLARATION return boolean} 
GENERIC_FORMAL_PART return boolean} 
PROCEDURE_UNIT return booleans 
SUBPROGRAM_BODY return boolean} 
FUNCTION_UNIT return boolean} 
FUNCTION_UNIT_TAIL return boolean; 
FUNCTION _BODY return boolean; 
FUNCTION_BODY_TAIL return boolean; 
TASK_DECLARATION return booleans3 
TASK_BODY return boolean; 
TASK_BODY_TAIL return boolean; 
PACKAGE_DECLARATION return boolean} 
PACKAGE_UNIT return boolean}; 
PACKAGE_BODY return booleans 

PACKAGE _BODY_TAIL return boolean} 
PACKAGE_TAIL_END return boolean} 
DECLARATIVE PART return boolean;3 
BASIC_DECLARATIVE_ITEM return boolean; 
BASIC_DECLARATION return booleans3 
LATER_DECLARATIVE_ITEM return boolean; 
PROPER_BODY return boolean; 
SEQUENCE_OF_STATEMENTS return boolean} 
STATEMENT return boolean} 
COMPOUND_STATEMENT return boolean; 
BLOCK_STATEMENT return boolean} 
IF_STATEMENT return booleans 
CASE_STATEMENT return boolean; 
CASE_STATEMENT_ALTERNATIVE return boolean; 
LOOP_STATEMENT return boolean; 
EXCEPTION_HANDLER return boolean} 
ACCEPT_STATEMENT return boolean; 
SELECT_STATEMENT return boolean; 
SELECT_STATEMENT_TAIL return boolean; 
SELECT_ALTERNATIVE return booleans 
SELECT_ENTRY_CALL return booleans 


end PARSER_13 


package body PARSER_1 is 


-- GENERIC_DECLARATION --> 


[GENERIC_PARAMETER_DECLARATION 7] 
GENERIC_FORMAL_PART 
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function GENERIC_DECLARATION return boolean is 
begin 
if (GENERIC_PARAMETER_DECLARATION) then 
nulls 
end if} 
if (GENERIC_FORMAL_PART) then 
return( TRUE )3 
else 
return (FALSE )}3 
end if} 
end GENERIC_DECLARATION}3 


~- GENERIC_PARAMETER_DECLARATION --> IDENTIFIER_LIST : (MODE ?] NAME 

-—- ° {:= EXPRESSION 7] ; 

-- --> type private [DISCRIMINANT_PART 7] 

-- is PRIVATE_TYPE_OECLARATION ; 

~= --> type private [DISCRIMINANT_PART ?] 

== is GENERIC_TYPE_DEFINITION ;3 

-- --> with procedure PROCEDURE_UNIT 

-- --> with function FUNCTION_UNIT 
function GENERIC_PARAMETER_DECLARATION return boolean is 
begin 

if (IDENTIFIER_LIST) then 

if (BYPASS( TOKEN_COLON)}) then 
if (MODE) then 


null; 
end if; ~~ if mode statement 
if (NAME) then -- check for type_mark 


if (BYPASS( TOKEN_ASSIGNMENT )} then 
if (EXPRESSION) then 


null; 
else 
SYNTAX_ERROR( "Generic parameter declaration" )3 
end if; -- if expression statement 
end if} -- if bypass(token_assignment) 


if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic parameter declaration"); 
end if} -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Generic parameter declaration" )3 
end if} -~- if type_mark statement 
else 
SYNTAX_ERROR("Generic parameter declaration" )} 
end if} -- if bypass(token_colon) 
elsif (BYPASS(TOKEN_TYPE)) then 
1f (BYPASS(TOKEN_IDENTIFIER)) then 
if (DISCRIMINANT_PART) then 
null; 
end if3 -- if discriminant_part 
if (BYPASS(TOKEN_IS)) then 
if (PRIVATE_TYPE_DECLARATION) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE); 
else 
SYNTAX_ERROR("'Generic parameter declaration" )3 
end if} -- if bypass( token_semicolon) 
elsif (GENERIC_TYPE_DEFINITION) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE); 
else 
SYNTAX_ERROR("'Generic parameter declaration" )}3 
end if} -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Generic parameter declaration" )3 
end if} -~ if private_type_declaration 
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else 
SYNTAX_ERROR("'Generic parameter declaration" )3 


end 13 -- if bypass(token_is) 
else 
SYNTAX_ERROR( "Generic parameter declaration" )}3 
end if} -- if bypass(token_identifier ) 


elsif (BYPASS(TOKEN_WITH)) then 
if (BYPASS( TOKEN_PROCEDURE )) then 
DECLARE_TYPE := PROCEDURE_DECLARE} 
if (PROCEDURE_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic parameter declaration" )}3 
end if} -- if procedure_unit statement 
elsif (BYPASS( TOKEN_FUNCTICN}) then 
DECLARE_TYPE := FUNCTION_SECLARE} 
if (FUNCTION_UNIT) then 
return (TRUE); 


else 
SYNTAX_ERROR("'Generic parameter declaration" )3 
end if} -- if function_unit statement 
else 
SYNTAX_ERROR("Generic parameter declaration" )}3 
end if3 -- if bypass( toKen_procedure ) 
else 
return (FALSE )3 
end if3 -- 1f identifier_list 


end GENERIC_PARAMETER_DECLARATION3$ 


-~ GENERIC_FORMAL_PART --> procedure PROCEDURE_UNIT 
-- --> function FUNCTION_UNIT 
-- --> package PACKAGE_DECLARATION 
function GENERIC_FORMAL_PART return boolean is 
begin 
if (BYPASS(TOKEN_PROCEDURE )) then 
DECLARE_TYPE := PROCEDURE_DECLARE} 
if (PROCEDURE_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic formal part"); 
end if} -- if procedure_unit statement 
elsif (BYPASS(TOKEN_FUNCTION)) then 
DECLARE_TYPE := FUNCTION_DECLARE}3 
if (FUNCTION_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic formal part" )3 
end if} -- if function_unit statement 
elsif (BYPASS( TOKEN_PACKAGE)) then 
DECLARE_TYPE := PACKAGE_DECLARE }3 
if (PACKAGE_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Generic formal part")}3 
end if} -- if package_declaration 
else 
return (FALSE )3 
end ifs 
end GENERIC_FORMAL_PART 3 


-- PROCEDURE_UNIT --> identifier [FORMAL_PART ?] is SUBPROGRAM_BODY 
-- --> identifier [FORMAL_PART 7] 3 
== --> identifier [FORMAL_PART ?] renames NAME 3 
function PROCEDURE_UNIT return boolean is 
begin 
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DECLARATION := TRUE} 
if (BYPASS(TOKEN_IDENTIFIER)) then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (FORMAL_PART) then 
null; 
end if} -- if formal part statement 
if (BYPASS(TOKEN_IS)) then 
if (SUBPROGRAM_BODY) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1; 
return (TRUE )3 
else 
SYNTAX_ERROR( "Procedure unit" )$3 
end if; -- if subprogram body statement 
elsif (BYPASS( TOKEN_SEMICOLON)) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1; 
return (TRUE )3 
elsif (BYPASS(TOKEN_RENAMES)) then 
if (NAME) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1;3 
return (TRUE )3 


else 
SYNTAX_ERROR("Procedure unit" )3 
end if; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Procedure unit )}3 
end if3 -- if name statement 
end if; -- if bypass( token_is) 
else 
return (FALSE )3 
end if; -- if bypass( token_identifier} 


end PROCEDURE_UNIT; 
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-- SUBPROGRAM_BODY --> new NAME [GENERIC_ACTUAL_PART ?] 5 
a --> separate } 
-- -=-> <> 3 
-- --> [DECLARATIVE_PART ?] begin SEQUENCE_OF_STATEMENTS 
-= [exception [EXCEPTION_HANDLERJ+ ?] end [DESIGNATOR ?] 3 
-- --> NAME 3 
function SUBPROGRAM_BODY return boolean is 
begin 
DECLARATION := TRUE; 
if (BYPASS( TOKEN_NEW) Jthen 
if (NAME) then 
if (GENERIC_ACTUAL_PART) then 
nulls 
end if}; -- if generic actual part 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Subprogram body" )3 
end if; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Subprogram body") 35 
end if} -- if name statement 


elsif (BYPASS( TOKEN_SEPARATE)) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Subprogram body" )3 
end if3 -- if bypass(token_semicolon) 
elsif (BYPASS(TOKEN_BRACKETS)) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Subprogram body" )}3 
end if; -- if bypass( token_semicolon) 
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elsif (DECLARATIVE_PART) then 
if (BYPASS( TOKEN_BEGIN)) then 
DECLARATION := FALSEs 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls 
end loops 
else 
SYNTAX_ERROR( "Subprogram body" )35 
end ifs -- if exception_handler statement 
end if} -- if bypass( token_exception ) 


if (BYPASS( TOKEN_END)) then 
if (DESIGNATOR?) then 
nulls 
end if; -- if designator statement 
if (BYPASS( TOKEN_SEMICOLON)) then 
DECLARATION := TRUES$ 
return (TRUE )35 


else 
SYNTAX_ERROR( "Subprogram body" )35 
end ifs -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Subprogram body" )}5 
end ifs -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Subprogram body" )}5 
end ifs -- if sequence of statements 
else 
SYNTAX_ERROR( "Subprogram body" )}5 
end if} -- if bypass( token_begin) 


elsif (BYPASS(TOKEN_BEGIN)) then 
DECLARATION := FALSE} 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls 
end loop; 
else 
SYNTAX_ERRORC"Subprogram body" )5 
end if} -- if exception_handler statement 
end ifs -- if bypass( token_exception ) 


if (BYPASS( TOKEN_END)) then 
if (DESIGNATOR) then 
nulls 
end ifs -- if designator statement 
if (BYPASS( TOKEN_SEMICOLON)) then 
DECLARATION := TRUES$ 
return (TRUE )35 


else 
SYNTAX_ERROR( "Subprogram body" )}5 
end ifs -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Subprogram body" )3 
end ifs -- if bypass( token_end ) 
else 
SYNTAX_ERROR( "Subprogram body" )5 
end if} -- if sequence of statements 


elsif (NAME) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("'Subprogram body" )3 
end if} -- if bypass( token_semicolon) 
else 
return (FALSE )5 
end ifs -- if bypass( token_new ) 
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end SUBPROGRAM_BODY ; 


-- FUNCTION_UNIT --> DESIGNATOR FUNCTION_UNIT_TAIL 
function FUNCTION_UNIT return boolean is 
begin 

DECLARATION := TRUE} 

if (DESIGNATOR) then 

SCOPE_LEVEL := SCOPE_LEVEL + 13 

if (FUNCTION_UNIT_TAIL) then 
SCOPE_LEVEL := SCOPE_LEVEL - ly} 
return (TRUE )3 

else 
SYNTAX_ERROR( "Function unit" )3 

end if; 

else 

return (FALSE )3 

end if3 

end FUNCTION_UNITs} 
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-- FUNCTION_UNIT_TAIL --> is mew NAME [GENERIC_ACTUAL_PART 71] 5 


-- --> [FORMAL_PART ?] return NAME FUNCTION_BODY 
function FUNCTION_UNIT_TAIL return boolean is 
begin 


if (BYPASS( TOKEN_IS)) then 
if (BYPASS( TOKEN_NEW)) then 
if (NAME) then 
if (GENERIC_ACTUAL_PART) then 
null; 
end if3 -- if generic actual part 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Function unit tail" )3 
end if; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Function unit tail"), 
end if; -- if name statement 
else 
SYNTAX_ERROR( "Function unit tail"); 
end if}; -- if bypass( token_new ) 


elsif (FORMAL_PART) then 
if (BYPASS(TOKEN_RETURN)) then 
if (NAME) then -- check for type_mark 
if (FUNCTION_BODY) then 
return (TRUE); 


else 
SYNTAX_ERROR( "Function unit tail"); 
end if; -- if function body statement 
else 
SYNTAX_ERROR("Function unit tail"); 
end if3 -- if type mark statement 
else 
SYNTAX_ERROR( "Function unit tail"); 
end if; -- if bypass(token_return) 
elsif (BYPASS( TOKEN_RETURN)) then 
if (NAME) then -- check for type_mark 


if (FUNCTION_BODY) then 
return (TRUE )3 


else 
SYNTAX_ERROR("'Function unit tail"); 
end if; -~ if function body statement 
else 
SYNTAX_ERROR( "Function unit tail’); 
end if; -- if type mark statement 


else 
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return (FALSE )3 
end if}; -- if bypass( token_is ) 
end FUNCTION_UNIT_TAIL3 


-- FUNCTION_BODY --> is [(FUNCTION_BODY_TAIL 7] 
== --—> $ 
function FUNCTION_BODY return boolean is 
begin 
if (BYPASS(TOKEN_IS)) then 
if (FUNCTION_BODY_TAIL) then 
null; 
end if} 
return (TRUE }3 
elsif (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
return (FALSE )3 
end if; 
end FUNCTION_BODY; 


-- FUNCTION_BODY_TAIL --> separate 3} 
ae --> <>} 
-- --> SUBPROGRAM_BODY 
-- --> NAME 3 
function FUNCTION_BODY_TAIL return boolean is 
begin 
if (BYPASS( TOKEN_SEPARATE }) then 
it (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE }3 
else 
SYNTAX_ERROR("Function body tail''}3 
end if} -- if bypass( token_semicolon) 
elsif (BYPASS(TOKEN_BRACKETS )) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR('"'Function body tail"); 
end if} -- if bypass(token_semicolon) 
elsif (SUBPROGRAM_BODY) then 
return (TRUE }3 
elsif (NAME) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Function body tail" )3 
end if3 -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end ifs -- if bypass( token_separate ) 


end FUNCTION_BODY_TAILs 


-- TASK_DECLARATION --> body TASK_BODY 3; 
-- --> [type ?] identifier (is (CENTRY_DECLARATION ]* 
-=- { REPRESENTATION_CLAUSE ]® end [identifier ?] 7] 3 
function TASK_DECLARATION return boolean is 
begin 
DECLARATION := TRUE} 
if (BYPASS(TOKEN_TYPE)) then 
null; 
end if}; -- if bypass(token_type ) 
if (BYPASS(TOKEN_BODY )) then 
if (TASK_BODY) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
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return (TRUE )3 


else 
SYNTAX_ERROR("'Task declaration" )35 
end if} 
else 
SYNTAX_ERROR( "Task declaration" )3 
end if} -- if task_body statement 


elsif (BYPASS(TOKEN_IDENTIFIER)) then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (BYPASS(TOKEN_IS)) then 
while (ENTRY_DECLARATION) loop 
nulls 
end loop; 
while (REPRESENTATION_CLAUSE } loop 
nulls 
end loops 
if (BYPASS{TOKEN_END))} then 
if (BYPASS(TOKEN_IDENTIFIER}} then 
nulls 
end ifs -- if bypass( toKen_identifier } 
if (BYPASS( TOKEN_SEMICOLON)) then 
SCOPE_LEVEL := SCOPE_LEVEL - 13 
return (TRUE )}3 


else 
SYNTAX_ERROR("'TaskK declaration" )3 
end if} -- if bypass( token_semicolon)} 
else 
SYNTAX_ERROR( "Task declaration" }}3 
end if; -- if bypass( token_end) 


elsif ‘(BYPASS( TOKEN_SEMICOLON}) then 
SCOPE_LEVEL := SCOPE_LEVEL - 13 
return (TRUE }3 


else 
SYNTAX_ERROR( "Task declaration’); 
end ifs -- if bypass(token_is) 
else 
return (FALSE )3 
end ifs -- if bypass( token_body ) 


end TASK_DECLARATIONs 


= =p @@ ee ow ee = ow @® @ © @® © @® © © eo © oO © 6 © oP ee @ © ow ow ee © ow © © © © © ow ow ow © ow @® © ow © © © oe © oe © ow © © ow © ow ow © © © © © ow © © ow © © ow © ow ww we ow & @ = = 


-- TASK_BODY --> identifier is TASK_BODY_TAIL 
function TASK_BODY return boolean is 
begin 
if (BYPASS( TOKEN_IDENTIFIER)) then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (BYPASS( TOKEN_IS)) then 
if (TASK_BODY_TAIL) then 
SCOPE_LEVEL := SCOPE_LEVEL - 13 
return (TRUE )35 


else 
SYNTAX_ERROR( "Task body" )35 
end if} -- if task_body_tail statement 
else 
SYNTAX_ERROR("Task body" )35 
end ifs -- if bypass(token_is) 
else 
return (FALSE )35 
end if} -- if bypass( token_identifier ) 


end TASK_BODYs} 


-- TASK_BODY_TAIL --> separate 

—— --> [DECLARATIVE_PART 7] begin SEQUENCE_OF_STATEMENTS 

-- [exception [CEXCEPTION_HANDLER]+ ?] end [identifier 7] 
function TASK_BODY_TAIL return boolean is 
begin 


as 


DECLARATION := TRUE} 
if (BYPASS(TOKEN_SEPARATE )) then 
return (TRUE); 
elsif (DECLARATIVE_PART) then 
if (BYPASS(TOKEN_BEGIN)) then 
DECLARATION := FALSE} 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS(TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls 
end loops 
else 
SYNTAX_ERROR( "Task body tail')s 
end if; -- if exception_handler statement 
end ifs -- if bypass! token_exception) 


if (BYPASS( TOKEN_END)) then 
if (BYPASS(TOKEN_IDENTIFIER)) then 
nulls 
end if; -- if bypass(token_identifier } 
DECLARATION := TRUE} 
return (TRUE )3 


else 
SYNTAX_ERROR( "Task body tail") 
end ifs -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Task body tail"); 
end ifs -- if sequence_of_statements 
else 
SYNTAX_ERROR( "Task sody tail") 
end if; -- if bypass( token_begin) 


elsif (BYPASS(TOKEN_8EGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE _OF_STATEMENTS! then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls; 
end loop; 
else 
SYNTAX_ERROR( “Task body tail" )3 
end ifs -- if exception_handler statement 
end if} -- if bypass( token_exception ) 


if (BYPASS( TOKEN_END)) then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
nulls 
end if}; -- if bypass( token_identifier ) 
DECLARATION := TRUE} 
return (TRUE )5 


else 
SYNTAX_ERROR('"'Task body tail"); 
end if} -- if bypass( token_end ) 
else 
SYNTAX_ERROR("'Task body tail'')s 
end if; -- if sequence_of_statements 
else 
return (FALSE )3 
end if; -- if bypass( token_separate) 


end TASK_BODY_TAIL3} 
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-- PACKAGE _DECLARATION --> body PACKAGE_BODY 
SS --> identifier PACKAGE_UNIT 
fumction PACKAGE_DECLARATION return boolean is 
begin 
DECLARATION := TRUE} 
if (BYPASS(TOKEN_BODY)) then 
if (PACKAGE_BODY) then 
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return (TRUE )3 
else 
SYNTAX_ERROR("'Package declaration"); 
end if3 -- if package unit statement 
elsif (BYPASS( TOKEN_IDENTIFIER)) then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (PACKAGE_UNIT) then 
SCOPE_LEVEL := SCOPE_LEVEL - 1} 
return (TRUE )3 


else 
SYNTAX_ERROR("Package declaration" )3 
end if; -- if package_unit_tail statement 
else 
return (FALSE )3 
end if}3 -- if bypass( token_package ) 


end PACKAGE_DECLARATION} 


-- PACKAGE_BODY --> identifier is PACKAGE_BODY_TAIL 
function PACKAGE_BODY return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (BYPASS(TOKEN_IS)) then 
if (PACKAGE_BODY_TAIL) then 
SCOPE_LEVEL := SCOPE_LEVEL - 13 
return (TRUE); 


else 
SYNTAX_ERROR( "Package body" )3 
end if; -- if package_body_tail statement 
elise 
SYNTAX_ERROR( "Package body" )}5 
end if} -- if bypass( token_is ) 
else 
return (FALSE }3 
end if3 -- if bypass( token_identifier ) 


end PACKAGE_BODY 5 


-- PACKAGE_BODY_TAIL --> separate 3} 
= --> [DECLARATIVE_PART 7] [begin SEQUENCE_OF_STATEMENTS 
-- [exception [EXCEPTION_HANDLERI]+ ?] 7] 
== end [identifier 7] } 
function PACKAGE_BODY_TAIL return boolean is 
begin 
DECLARATION := TRUE} 
if (BYPASS( TOKEN_SEPARATE)) then 
if (BYPASS( TOKEN_SEMICOLON})) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Package body tail"); 
end if; -- if bypass( token_semicolon) 
elsif (DECLARATIVE_PART) then 
DECLARATION := FALSE} 
if (BYPASS( TOKEN_BEGIN)) then 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


null; 
end loop} 
else 
SYNTAX_ERROR( "Package body tail'')3 
end if}; -- if exception_handler statement 
end if} -- if bypass( token_exception) 


if (BYPASS(TOKEN_END)) then 
if (BYPASS(TOKEN_IDENTIFIER)) then 


US 


nulls 
end if} -- if bypass( token_identifier ) 
if (BYPASS( TOKEN_SEMICOLON)) then 

DECLARATION := TRUE} 

return (TRUE }}3 


else 
SYNTAX_ERROR( "Package body tail"); 
end if} -- if bypass( toKen_semicolon) 
else 
SYNTAX_ERROR( "Package body tail" )3 
end if}; -- if bypass( token_end} 
else 
SYNTAX_ERROR("Package body tail''}3 
end if; -- if sequence_of_statements 


elsif (BYPASS( TOKEN_END)) then 
if (BYPASS( TOKEN_IDENTIFIER}) then 
nulls 
end ifs -- if bypass( token_identifier )} 
if (BYPASS( TOKEN_SEMICOLON)) then 
DECLARATION := TRUE$ 
return (TRUE J} 


else 
SYNTAX_ERROR("Package body tail"); 
end ifs -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Package body tail"); 
end ifs -- if bypass(token_begin) 


elsif (BYPASS( TOKEN_BEGIN}) then 
DECLARATION := FALSE} 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls 
end loops 
else 
SYNTAX_ERROR("Package body tail"); 
end if} -- if exception_handler statement 
end if} -- if bypass( token_exception) 


if (BYPASS(TOKEN_END)) then 
if (BYPASS(TOKEN_IDENTIFIER)) then 
nulls 
end if} -- if bypass( token_identifier ) 
if (BYPASS( TOKEN_SEMICOLON)) then 
DECLARATION := TRUE} 
return (TRUE )3 


else 
SYNTAX_ERROR("'Package body tail" )3 
end if} -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Package body tail" )3 
end if} -- if bypass(token_end) 
else 
SYNTAX_ERROR( "Package body tail" )3 
end if} -- if sequence_of_statements 


elsif (BYPASS(TOKEN_END?}} then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
null; 
end if} -~ if bypass(token_identifier ) 
if (BYPASS( TOKEN_SEMICOLON})) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Package body tail'); 
end if; -- if bypass( token_semicolon) 
else 
return (FALSE )} 
end if} -- if bypass( token_separate} 


end PACKAGE_BODY_TAIL} 
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-- PACKAGE_UNIT --> is PACKAGE_TAIL_END 
-- --> renames NAME 3} 
function PACKAGE_UNIT return boolean is 
begin 
if (BYPASS( TOKEN_IS}) then 
if (PACKAGE_TAIL_END) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Package unit" )}3 
end if} 
elsif (BYPASS( TOKEN_RENAMES)} then 
if (NAME) then 
if (BYPASS( TCKEN_SEMICOLON)} then 
return (TRUE }3 


else 
SYNTAX_ERROR( "Package unit" )3 
end if} -- if bypass! token_semicolon) 
else 
SYNTAX_ZRROR("Package unit" }3 
end if}3 -- if name statement 
else 
return (FALSE )}3 
end ifs -- if bypass( toKen_is/) 


end PACKAGE_UNIT 3 


-- PACKAGE_TAIL_END --> new NAME [(GENERIC_ACTUAL_PART 7] ; 
-- ~-> {BASIC_OECLARATIVE_ITEMI*® {private 
-- (BASIC_DECLARATIVE_ITEMIJ® 71] ena Cidentifier 7! ; 
function PACKAGE_TAIL_END return boolean is 
begin 
if (BYPASS(TOKEN_NEW)} then 
if (NAME) then 
if (GENERIC_ACTUAL_PART) then 
nulls 
end if} -- if generic_actual_part statement 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Package tail end"); 
end if} -- if bypass{ tokKen_semicolon) 
else 
SYNTAX_ERROR("Package tail end" )} 
end if} -- if name statement 


elsif (BASIC_DECLARATIVE_ITEM) then 
while (BASIC_DECLARATIVE_ITEM) loop 
nulls 
end loops 
if (BYPASS( TOKEN_PRIVATE)) then 
while (BASIC_DECLARATIVE_ITEM) loop 
null; 
end loop} 
end if} -~- if bypass( token_private ) 
if (BYPASS(TOKEN_END)) then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
null; 
end ifs 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Package tail end" )} 
end if3 -- if bypass(token_semicolon) 
else 
SYNTAX_ERROR( "Package tail end" )3 
end if} -~ if bypass( token_end ) 


elsif (BYPASS( TOKEN_PRIVATE )) then 


tele? 


While (BASIC_DECLARATIVE_ITEM) loop 
nulls 
end loops 
if (BYPASS( TOKEN_END)? then 
if (BYPASS! TOKEN_IDENTIFIER)) then 
nulls 
end ifs 
if (BYPASS TOKEN_SEMICOLON})} then 
return (TRUE }35 


else 
SYNTAX_ERROR( "Package tail end''}5 
end ifs -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Package tail end'"}3 
end if} -- if bypass( token_end) 


elsif (BYPASSCTOKEN_END}) then 
if (BYPASSCETOKEN_ZDOENTIFIER}) then 
null; 
end if} 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE 33 


else 
SYNTAX_ERROR( "Package tail end" )3 
end if} -- if bypass({ token_semicolon ) 
else 
return (FALSE )3 
end ifs 


-- if bypass( toKen_new) 
end PACKAGE_TAIL_END$3$ 


~~ BASIC_JECLARATIVE_ITEM --> B8ASIC_DECLARATIVE 
-~ --> REPRESENTATION _CLAUSE 
-- --> use WITH_OR_USE_CLAUSE 
function BASIC_DECLARATIVE_ITEM return boolean is 
begin 
if (BASIC _DECLARATION) then 
return (TRUE J35 
elsif (REPRESENTATION_CLAUSE} then 
return (TRUE J3 
elsif (BYPASS( TOKEN_USE}} then 
if (WITH_OR_USE_CLAUSE) then 
return (TRUE J} 
else 
SYNTAX_ERROR( “Basic declarative item')3 
end ifs 
else 
return (FALSE }3 
end ifs 
end BASIC_DECLARATIVE_ITEM3 


-- DECLARATIVE_PART --> [BASIC_DECLARATIVE_ITEM]* (LATER_DECLARATIVE_ITEM]* 
function DECLARATIVE_PART return boolean is 
begin 

while (BASIC_DECLARATIVE_ITEM) loop 

nulls 

end loops 

while (LATER_DECLARATIVE_ITEM) loop 

nulls 

end loops 

return (TRUE }3 
end DECLARATIVE_PART 5 


-- BASIC_DECLARATION --> type TYPE_DECLARATION 
-- --> subtype SUBTYPE_DECLARATION 
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-- --> procedure PROCEDURE_UNIT 
-- --> function FUNCTION_UNIT 
-- --> package PACKAGE_DECLARATION 
-- --> generic GENERIC_DECLARATION 
== --> IDENTIFIER_DECLARATION 
-- --> task TASK_DECLARATION 
function BASIC_DECLARATION return boolean is 
begin 
if (BYPASS(TOKEN_TYPE)) then 
if (TYPE_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Basic declaration" )3 
end if} 
elsif (BYPASS( TOKEN_SUBTYPE)) then 
if (SUBTYPE_DECLARATION?} then 
return (TRUE )$3 
else 
SYNTAX_ERROR( "Basic declaration" )3 
end if3 
elsif (BYPASS( TOKEN_PROCEDURE })) then 
DECLARE_TYPE := PROCEDURE_DECLARE;} 
if (PROCEDURE_UNIT) then 
return (TRUE }3 
else 
SYNTAX_ERROR( "Basic declaration" )3 
end if} -- if procedure_unit statement 
elsif (BYPASS(TOKEN_FUNCTION)) then 
DECLARE_TYPE := FUNCTION_DECLARE} 
if (FUNCTION_UNIT) then 
return (TRUE }3 
else 
SYNTAX_ERROR( "Basic declaration" )3 
end if} -- if function_unit statement 
elsif (BYPASS( TOKEN_PACKAGE)) then 
DECLARE_TYPE := PACKAGE_DECLARE} 
if (PACKAGE_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Basic declaration" )$ 
end ifs -- if package_declaration 
elsif (BYPASS(TOKEN_GENERIC)) then 
if (GENERIC_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( “Basic declaration" )3 
end if} -- if generic_declaration 
elsif (IDENTIFIER_DECLARATION) then 
return (TRUE )3 
elsif (BYPASS(TOKEN_TASK)) then 
DECLARE_TYPE := TASK_DECLARE} 
if (TASK_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Basic declaration" )3 
end ifs 
else 
return (FALSE }3 
end ifs 
end BASIC_DECLARATION} 


-- LATER_DECLARATIVE_ITEM --> PROPER_BODY 
== --> generic GENERIC_DECLARATION 
=- --> use WITH_OR_USE_CLAUSE 
function LATER_DECLARATIVE_ITEM return boolean is 
begin 
if (PROPER_BODY) then -- check for body_declaration 


Hg 


return (TRUE )3 
elsif (BYPASS{( TOKEN_GENERIC)) then 
if (GENERIC_DECLARATION) then 
return (TRUE }3 
else 
SYNTAX_ERROR("“Later declarative item" )3 
end if} -- if generic_declaration 
elsif (BYPASS(TOKEN_USE)) then 
if (WITH_OR_USE_CLAUSE) then 
return (TRUE )3 


else 
SYNTAX_ERROR(“Later declarative item')} 
end if}; -- if with_or_use_clause 
else 
return (FALSE )3 
end if} 


end LATER_DECLARATIVE_ITEM}3 


-- PROPER_BODY --> procedure PROCEDURE_UNIT 
-- --> function FUNCTION_UNIT 
-- --> package PACKAGE_DECLARATION 
-- --> task TASK_DECLARATION 
function PROPER_BODY return boolean is 
begin 
if (BYPASS(TOKEN_PROCEDURE )} then 
DECLARE_TYPE := PROCEDURE_DECLARE 3} 
if (PROCEDURE_UNIT) then 
return (TRUE }}3 
else 
SYNTAX_ERROR( "Proper body" )3 
end if} -- if procedure_unit statement 
elsif (BYPASS(TOKEN_FUNCTION)) then 
DECLARE_TYPE := FUNCTION_DECLARE3 
if (FUNCTION_UNIT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Proper body" )3 
end if} -- if function_unit statement 
elsif (BYPASS( TOKEN_PACKAGE)) then 
DECLARE_TYPE := PACKAGE_DECLARE} 
if (PACKAGE_DECLARATION) then 
return (TRUE )}3 
else 
SYNTAX_ERROR("“Proper body" )}3 
end if} -- if package_declaration 
elsif (BYPASS(TOKEN_TASK )) then 
DECLARE_TYPE := TASK_DECLARE 3} 
if (TASK_DECLARATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR(“Proper body" )} 
end ifs 
else 
return (FALSE )3 


end if} -- if bypass{ token_procedure ) 
end PROPER_BODY;} 


-- SEQUENCE_OF_STATEMENTS --> [STATEMENT ]+ 
function SEQUENCE_OF_STATEMENTS return boolean is 
begin 

if (STATEMENT) then 

while (STATEMENT) loop 
nulls 

end loop} 

return (TRUE )3 
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else 
return (FALSE }3 
end ifs 
end SEQUENCE_OF_STATEMENTS;} 


-- STATEMENT --> [LABEL ?] SIMPLE_STATEMENT 
aS --> [LABEL ?] COMPOUND_STATEMENT 
function STATEMENT return boolean is 
begin 
if (LABEL} then 
nulls; 
end its 
if (SIMPLE_STATEMENT) then 
return (TRUE)$ 
alsi? {COMPOUND_STATEMENT) then 
return (TRUE }5 
else 
return (FALSE)s 
end ifs 
end STATEMENT} 
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-- COMPOUND_STATEMENT --> if IF_STATEMENT 
—— --> case CASE_STATEMENT 
Sea --> tLOOP_STATEMENT 
=< --> 3LOCK_STATEMENT 
-- --> accept ACCEPT_STATEMENT 
-- --> select SELECT_STATEMENT 
function COMPOUND _STATEMENT return do00lean is 
begin 
if (BYPASS(TOKEN_IF)) then 
NESTING _METRIC( IF CONSTRUCT }35 
if (IF_STATEMENT}) then 
return (TRUE }; 
else 
SYNTAX_ERROR( "Compound statement" 35 
end if; -- if if_statement 
elsif (BYPASS(TOKEN_CASE}} then 
NESTING_METRIC(CASE_CONSTRUCT }3 
if (CASE_STATEMENT}) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Compound statement" 33 
end ifs -- if case_statement 
elsif (LOOP_STATEMENT} then 
return (TRUE }3 
elsif (BLOCK_STATEMENT)} then 
return (TRUE }3 
elsif (BYPASS(TOKEN_ACCEPT}} then 
1f (ACCEPT_STATEMENT} then 
return (TRUE }3 
else 
SYNTAX_ERROR( "Compound statement" }3 
end ifs 
elsif (BYPASS(TOKEN_SELECT})} then 
if (SELECT_STATEMENT} then 
return (TRUE }; 
else 
SYNTAX_ERROR( "Compound statement" 33 
end ifs 
else 
return (FALSE 3}; 
end if} 
end COMPOUND_STATEMENT 3 


-- BLOCK_STATEMENT <-> [identifier : ?] [declare DECLARATIVE_PART ?] 
“+ begin SEQUENCE_OF_STATEMENTS [exception 
-- [EXCEPTION_HANDLER]+ ?] ?] end [Lidentifier 7] 3 
function BLOCK_STATEMENT return boolean is 
DECLARE_STATUS : booleans 
begin 
if (DECLARATION) then 
DECLARE_STATUS := TRUE} 
else 
DECLARATION := TRUE} 
DECLARE_STATUS := FALSE3$ 
end ifs 
DECLARE_TYPE := BLOCK _DECLARE; 
if (BYPASS(TOKEN_IDENTIFIER)} then 
SCOPE_LEVEL := SCOPE_LEVEL + 13 
if (BYPASS(TOKEN_COLON}) then 
SCOPE_LEVEL := SCOPE_LEVEL — 13 


else 
SYNTAX_ERROR( "Block statement" )3 
end ifs -- if bypass( token_colon) 
else 
DECLARE_TYPE := VARIABLE_DECLAREs 
end if3 -- if bypass( token_identi fier) 


if (BYPASS(TOKEN_DECLARE}))} then 
SCOPE LEVEL := SCOPE_LEVELy + =} 
if (DECLARATIVE_PART) then 


nulls 
else 
SYNTAX_ERROR("'Block statement" )3 
end if; -- if declarative_part statement 
end if; -- if bypass( token_ceclare ) 


if (BYPASS(TOKEN_BEGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE _OF_STATEMENTS} then 
if (BYPASS( TOKEN_EXCEPTION)) then 
if (EXCEPTION_HANDLER) then 
while (EXCEPTION_HANDLER) loop 


nulls 
end loop} 
else 
SYNTAX_ERROR( "Block statement" )3 
end ifs -- if exception_handler statement 
end if} -- if bypass( token_exception) 


if (BYPASS(TOKEN_END)) then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
nulls 
end ifs -- if bypass( token_identifier ) 
if (BYPASS( TOKEN_SEMICOLON)) then 
SCOPE_LEVEL := SCOPE_LEVEL —- 13 
DECLARATION := TRUE3 
return (TRUE)$ 


else 
SYNTAX_ERROR("'Block statement" )3 
end if} -- if bypass( tokKen_semicolon) 
else 
SYNTAX_ERROR( "Block statement" )3 
end if} -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Block statement") $3 
end if} -- if sequence_of_statements 
else 


if not (DECLARE_STATUS) then 
DECLARATION := FALSE} 

end if3 

return (FALSE )3 


end ifs -- if bypass( token_begin) 
end BLOCK_STATEMENT +} 
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-- IF_STATEMENT --> EXPRESSION then SEQUENCE_OF_STATEMENTS 
-- (elsif EXPRESSION then SEQUENCE_OF_STATEMENTS ]* 
-- (else SEQUENCE_OF_STATEMENTS 7] end if 3 
function IF_STATEMENT return boolean is 
begin 
if (EXPRESSION) then 
if (BYPASS( TOKEN_THEN)) then 
if (SEQUENCE_OF_STATEMENTS) then 
while (BYPASS( TOKEN_ELSIF)) loop 
if (EXPRESSION) then 
if (BYPASS( TOKEN_THEN)) then 
if not (SEQUENCE_OF_STATEMENTS) then 
SYNTAX_ERROR( "If statement"); 


end if35 -- if not sequence_of_statements 
else 
SYNTAX_ERROR( "If statement"); 
end if} -- if bypass( token_then) 
else 
SYNTAX_ERROR( "If statement"); 
end ifs -- if expression statement 
end loop; 


if (BYPASS(TOKEN_ELSE)) then 
if (SEQUENCE_OF_STATEMENTS) then 


nulls 
else 
SYNTAX_ERROR("If statement"); 
end if; -- if sequence_of_statements 
end if; -- if bypass(token_else ) 


if (BYPASS(TOKEN_END)) then 
if (BYPASS(TOKEN_IF)) then 
if (BYPASS( TOKEN_SEMICOLON}) then 
NESTING_METRIC(IF_END)} 
return (TRUE )5 


else 
SYNTAX_ERROR("If statement"); 
end if}; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "If statement" )3 
end ifs -- if bypass( token_if) 
else 
SYNTAX_ERROR( "If statement"); 
end ifs -- if bypass( token_end) 
else 
SYNTAX_ERROR( "If statement"); 
end ifs -- if sequence_of_statements 
else 
SYNTAX_ERROR( "If statement") 5 
end if; -- if bypass( token_then) 
else 
return (FALSE )5 
end if; -- if expression statement 


end IF_STATEMENT }5 


-- CASE_STATEMENT --> EXPRESSION is [CASE_STATEMENT_ALTERNATIVE ]+ end case 3 
function CASE_STATEMENT return boolean is 
begin 
if (EXPRESSION) then 
if (BYPASS( TOKEN_IS)) then 
if (CASE_STATEMENT_ALTERNATIVE) then 
while (CASE_STATEMENT_ALTERNATIVE) loop 
nulls 
end loops 
if (BYPASS(TOKEN_END)) then 
if (BYPASS( TOKEN_CASE)) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
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NESTING_METRIC(CASE_END )3 
return (TRUE )3 


else 
SYNTAX_ERROR( "Case statement"); 
end if} -- if bypass( token_semicolon) 
else 


SYNTAX_ERROR("Case statement" )3 


end if} -- if bypass( token_case) 
else 
SYNTAX_ERROR( "Case statement" )3 
end if; -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Case statement" )3 
end if} -- if case_statement_alternative 
else 
SYNTAX_ERROR( “Case statement" )3 
end if3 -- if bypass( token_is ) 
else 
return (FALSE )3 
end ifs -- if expression statement 
end CASE_STATEMENT $3 
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-- CASE_STATEMENT_ALTERNATIVE --> when CHOICE [ CHOICE ]* => 


SEQUENCE_OF_STATEMENTS 
function CASE _STATEMENT_ALTERNATIVE return boolean is 
begin 

if (BYPASS(TOKEN_WHEN)) then 

it (CHOICE) then 
while (BYPASS{ TOKEN_BAR)) loop 
if not (CHOICE) then 
SYNTAX_ERROR( “Case statement alternative" )3 


end if3 -- if not choice statement 
end loop; 


if (BYPASS(TOKEN_ARROW)) then 


if (SEQUENCE _OF_STATEMENTS) then 
return (TRUE )3 
else 


SYNTAX_ERROR( “Case statement alternative" )}3 


end if3 -- if sequence_of_statements 
else 
SYNTAX_ERROR("Case statement alternative" )}3 
end if} -- if bypass( token_arrow ) 
else 


SYNTAX_ERROR("'Case statement alternative" )3 


end if3 -- if choice statement 
else 


return (FALSE )3 
end if} 


-- if bypass( token_when) 
end CASE_STATEMENT_ALTERNATIVE 5 
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-- LOOP_STATEMENT --> [identifier : ?] [ITERATION_SCHEME ?] loop 


~ SEQUENCE_OF_STATEMENTS end loop [identifier 7] 3 
function LOOP_STATEMENT return boolean is 


begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
if (BYPASS(TOKEN_COLON)) then 
nulls 
else 
SYNTAX_ERROR( "Loop statement" )3 
end if3 
end if} 
if (ITERATION_SCHEME) then 
NO_ITERATION := FALSE} 
end if3 -- if iteration_scheme statement 
if (BYPASS{TOKEN_LOOP)) then 


-- if bypass( token_colon) 
-- if bypass( token_identifier ) 


if (NO_ITERATION) then 
NESTING_METRIC( LOOP_CONSTRUCT )}3 
else 
NO_ITERATION := TRUE} 
end if; 
if (SEQUENCE_OF_STATEMENTS) then 
if (BYPASS{TOKEN_END}) then 
if (BYPASS( TOKEN_LOOP)) then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
nulls 
end if} -~ if bypass( tokKen_identifier ) 
if (BYPASS( TOKEN_SEMICOLON)) then 
NESTING_METRIC( LOOP_END }3 
return (TRUE )3 


else 
SYNTAX_ERROR({ "Loop statement" )3 
end if; -- if bypass( token_samicolon) 
else 
SYNTAX_ERROR("Loop statement" )3 
end ifs -- if bypass( toKen_loop } 
else 
SYNTAX_ERROR( "Loop statement"); 
end if}; -- if bypass{ tokKen_end) 
else 
SYNTAX_ERROR( "Loop statement"); 
end it; -- if sequence_oft_statements 
else 
return (FALSE )3 
end ifs -- if bypass( token_loop! 


end LOOP_STATEMENT 3 
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-~ EXCEPTION_HANDLER --> wnen E€XCEPTION_CHOICE [ EXCEPTION_CHOICE ]* => 
-- SEQUENCE_OF_STATEMENTS 
function EXCEPTION_HANDLER return boolean is 
begin 
if (BYPASS( TOKEN_WHEN)) then 
if (EXCEPTION_CHOICE) then 
while (BYPASS(TOKEN_BAR)) loop 
if not (EXCEPTION_CHOICE) then 
SYNTAX_ERROR( "Exception handler" )3 
end if} -- if not exception_choice 
end loops 
if (BYPASS( TOKEN_ARROW)) then 
if (SEQUENCE_OF_STATEMENTS) then 
return (TRUE); 


else 
SYNTAX_ERROR( "Exception handler"); 
end if; -- if sequence_of_statements 
else 
SYNTAX_ERROR("Exception handler"); 
end if; -- if bypass( token_arrow) 
else 
SYNTAX_ERROR( "Exception handler"); 
end if} -- if exception_choice statement 
else 
return (FALSE); 
end ifs -- if bypass( token-when ) 


end EXCEPTION_HANDLER; 


~~ ACCEPT_STATEMENT --> identifier [( EXPRESSION) ?] UT FORMAL_PART 7] 
-- [do SEQUENCE_OF_STATEMENTS end [identifier ?] ?] 3 
function ACCEPT_STATEMENT return boolean is 
begin 
if (BYPASS( TOKEN_IDENTIFIER)) then 
if (BYPASS(TOKEN_LEFT_PAREN)) then 


Wes 


if (EXPRESSION) then 
if (BYPASS(TOKEN_RIGHT_PAREN)) then 
null; 
else 
SYNTAX_ERROR( "Accept statement" J} 


end if} -- if bypass( token_right_paren) 
else 


SYNTAX_ERROR( "Accept statement" )3 
end if} -- if expression statement 
end if} -- if bypass( token_left_paren) 
if (FORMAL_PART) then 
null; 
end ifs -- if formal_part statement 
if (BYPASS(TOKEN_DO)) then 
if (SEQUENCE _OF_STATEMENTS) +hen 
if (BYPASS(TOKEN_END)) then 
if (BYPASS(TOKEN_IDENTIFIER)) then 
nulls 
end ifs -- if bypass( token_identifier } 
else 


SYNTAX_ERROR( "Accept statement" )3 


end ifs -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Accept statement" )3 
end if} -- if sequence_of_statements 
end if; 


-- if bypass( token_do) 
it (BYPASS( TOKEN_SEMICOLON)) then 


return {TRUE )3 


else 
SYNTAX_ERROR("“ Accept statement" )5 
end its -- if bypass( token_semicolon) 
else 
return {FALSE )3 
end if; -- if bypassi token_identifier ) 
end ACCEPT_STATEMENT ; 


-- SELECT_STATEMENT --> SELECT_STATEMENT_TAIL SELECT_ENTRY_CALL end select 3 
function SELECT_STATEMENT return boolean is 
begin 
if (SELECT_STATEMENT_TAIL) then 
if (SELECT_ENTRY_CALL) then 
1f (BYPASS(TOKEN_END)) then 
if (BYPASS( TOKEN_SELECT)) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX_ERROR( "Select statement" J} 
end if} -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Select statement" J} 
end if} -- if bypass(token_select) 
else 
SYNTAX_ERROR("Select statement" )3 
end if} -- if bypass( token_end) 
else 
SYNTAX_ERROR( “Select statement" )}3 
end if} -- if select_entry_call statement 
else 
return (FALSE )3 
end if} -- if select_statement_tail 
end SELECT_STATEMENT 3 


-- SELECT_STATEMENT_TAIL --> SELECT_ALTERNATIVE [or SELECT_ALTERNATIVE ]* 


-- --> NAME 3 [SEQUENCE_OF_STATEMENTS 7] 
function SELECT_STATEMENT_TAIL return boolean is 
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begin 
if (SELECT_ALTERNATIVE) then 
while (BYPASS(TOKEN_OR}) loop 
if not (SELECT_ALTERNATIVE} then 
SYNTAX_ERROR( "Select statement tail'')3 
end if} 
end loop; 
return (TRUE )3 
elsif (NAME) then -- check for entry call statement 
if (BYPASS( TOKEN_SEMICOLON)} then 
if (SEQUENCE_OF_STATEMENTS) then 


null; 
end if} -- if sequence_of_statements 
return (TRUE )3 
else 
SYNTAX_ERROR( "Select statement tail''}3 
end if} -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end if; -- if select_alternative statement 


end SELECT_STATEMENT_TAIL3 


-- SELECT_ALTERNATIVE --> [when EXPRESSION => ?] accept ACCEPT_STATEMENT 
-- { SEQUENCE_OF_STATEMENTS ?] 
-< --> [when EXPRESSIGN => ?] delay DELAY_STATEMENT 
== {[SEQUENCE_OF_STATEMENTS ?] 
== --> [when EXPRESSION => ?] terminate 3} 
function SELECT_ALTERNATIVE return boolean is 
begin 
if (BYPASS( TOKEN_WHEN}) then 
if (EXPRESSION) then 
if (BYPASS( TOKEN_ARROW)) then 
nulls 
else 
SYNTAX_ERROR("Select alternative" )3 
end if} -- if bypass( token_arrow) 
else 
SYNTAX_ERROR("Select alternative" )}3 
end if} -- if expression statement 
end if} -- if bypass( token_when) 
if (BYPASS(TOKEN_ACCEPT)) then 
if (ACCEPT_STATEMENT) then 
if (SEQUENCE_OF_STATEMENTS) then 


nulls 
end if} -- if sequence_of_statements 
return (TRUE); 
else 
SYNTAX_ERROR("Select alternative" }3 
end if} -- if accept_statement 


elsif (BYPASS(TOKEN_DELAY)} then 
if (DELAY_STATEMENT) then 
if (SEQUENCE_OF_STATEMENTS) then 


null; 
end if} -- if sequence_of_statements 
return (TRUE )3 
else 
SYNTAX_ERROR( "Select alternative" )3 
end if}; -- if delay_statement 


elsif (BYPASS(TOKEN_TERMINATE}) then 
if (BYPASS( TOKEN_SEMICOLON}) then 
return (TRUE )3 


else 
SYNTAX_ERROR("'Select alternative" )3 
end if} -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end if} -- if bypass( token_accept ) 
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end SELECT_ALTERNATIVE 5 


-- SELECT_ENTRY_CALL --> else SEQUENCE_OF_STATEMENTS 
-- --> or delay DELAY_STATEMENT [SEQUENCE_OF_STATEMENTS ?] 
function SELECT_ENTRY_CALL return boolean is 
begin 
if (BYPASS( TOKEN_ELSE)) then 
if (SEQUENCE_OF_STATEMENTS) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Select entry call"); 
end if; -- if sequence_of_statements 
elsif (BYPASS(TOKEN_OR)) then 
if (BYPASS( TOKEN_DELAY)} then 
if (DELAY_STATEMENT) then 
if (SEQUENCE_OF_STATEMENTS) then 


nulls 
end if; -- if sequence_of_statements 
return (TRUE )3 
else 
SYNTAX_ERROR( "Select entry call" )3 
end if; -- if delay_statement 
else 
SYNTAX_ERROR( "Select entry call"); 
end if} -- if bypass(token_delay ) 
else 
return (FALSE )5 
end ifs -~- if bypass( token_else) 


end SELECT_LENTRY_CALL3$ 


end PARSER_1; 
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APPENDIX E 
‘ADAMEASURE’ PROGRAM LISTING - PART 3 
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TITLE: AN ADA SOFTWARE METRIC 


MODULE NAME: PACKAGE PARSER_2 


-- DATE CREATED: 18 JUL 36 -- 
-- LAST MODIFIED: 04 DEC 36 -- 
-- AUTHORS: LCOR JEFFREY *L. NIEDER cs 
-- LT KARL S. FAIRBANKS, CR. ai 
-- DESCRIPTION: This package centains thirty-three functions -- 


that are the middle levei productions for our top-down, -- 
recursive descent parser. Each function is preceded -- 
by the grammaar productions they are implementing. 
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with PARSER_5, PARSER_4, BYPASS_SUNCTION, BYPASS_SUPPORT_FUNCTIONS > 


GLOBAL _PARSER, GLOBAL; 
use PARSER_3, PARSER_4, BYPASS_FUNCTION., 8YPASS_SUPPORT_FUNCTIONS » 
GLOBAL_P&RSER, GLOBAL; 


Package PARSER_2 is 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


GENERIC _ACTUAL_PART return boolean; 
SENERIC_ASSOCIATION return doolean; 
GENERIC_FORMAL_PARAMETER return boolean; 
GENERIC_TYPE_DEFINITION return boolean; 
PRIVATE_TYPE_DECLARATION return boolean; 
TYPE_DECLARATION return boolean; 
SUBTYPE_DECLARATION return boolean; 
DISCRIMINANT_PART return boolean; 
DISCRIMINANT_SPECIFICATION return boolean; 
TYPE_DEFINITION return boolean; 
RECORD_TYPE_OEFINITION return boolean; 
COMPONENT_LIST return boolean}; 
COMPONENT_DECLARATION return boolean; 
VARIANT_PART return boolean; 

VARIANT return boolean; 

WITH_OR_USE_CLAUSE return boolean; 
FORMAL_PART return boolean; 
IDENTIFIER_DECLARATION return boolean; 
IDENTIFIER_DECLARATION_TAIL return boolean; 
EXCEPTION_TAIL return boolean3 
EXCEPTION_CHOICE return boolean; 
CONSTANT_TERM return boolean; 
IDENTIFIER_TAIL return boolean; 
PARAMETER_SPECIFICATION return boolean; 
IOENTIFIER_LIST return boolean; 

MODE return boolean; 

DESIGNATOR return boolean; 
SIMPLE_STATEMENT return boolean; 
ASSIGNMENT_OR_PROCEDURE_CALL return boolean; 
LABEL return boolean; 

ENTRY_DECLARATION return boolean; 
REPRESENTATION _CLAUSE return boolean; 
RECORD_REPRESENTATION_CLAUSE return boolean; 


end PARSER_23 


package body PARSER_2 is 


-- GENERIC_ACTUAL_PART --> (GENERIC_ASSOCIATION [, GENERIC_ASSOCIATIONIJ* ) 
function GENERIC_ACTUAL_PART return boolean is 
begin 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (GENERIC_ASSOCIATION) then 
while (BYPASS(TOKEN_COMMA)) loop 
if not (GENERIC_ASSOCTIATION) then 
SYNTAX_ERROR("'Generic actual part")3 
end if}3 -- if not generic_association 
end loop} 
if (BYPASS{ TOKEN_RIGHT_PAREN)} then 
return (TRUE)3 


else 
SYNTAX _ERROR( "Generic actual part')3 
end its -- if bypass tokKen_right_paren ) 
else 
SYNTAX_ERROR( "Generic actual part')3 
end if; -- if generic association statement 
else 
return( FALSE )3 
end if; -- if bypass( token_left_paren) 


end GENERIC_ACTUAL_PART3 
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-- GENERIC_ASSOCIATION --> [GENERIC_FORMAL_PARAMETER 7] EXPRESSION 
function GENERIC_ASSOCIATION return boolean is 


begin 

it (GENERIC_FORMAL_PARAMETER) then 
mulls 

end if; -- if generic_formal_parameter statement 

if (EXPRESSION) then -- check for generic_actual_parameter 
return (TRUE }3 

else 
return (FALSE )3 

end if; -- if expression 


end GENERIC_ASSOCIATION; 


-- GENERIC_FORMAL_PARAMETER --> identifier => 
== --> string_literal => 
function GENERIC_FORMAL_PARAMETER return boolean is 
begin 
LOOK_AHEAD_TOKEN := TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX + 1)3 
if (ADJUST_LEXEME( LOOK_AHEAD_TOKEN.LEXEME 5 
LOOK_AHEAD_TOKEN.LEXEME_SIZE - 1) = “=>") then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
if (BYPASS( TOKEN_ARROW)) then 
return (TRUE )}3 
else 
SYNTAX_ERROR("“Generic formal parameter" )}3 
end if} -- if bypass( token_arrow) 
elsif (BYPASS( TOKEN_STRING_LITERAL)) then 
if (BYPASS( TOKEN_ARROW)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Generic formal parameter" )}3 
end if} -- if bypass( token_arrow ) 
else 
SYNTAX_ERROR("Generic formal parameter" )3 
end ifs -- if bypass( token_identifier ) 
else 
return (FALSE )3 
end if} -- if adjust_lexeme( lookahead_token ) 


end GENERIC_FORMAL_PARAMETER$ 
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-- GENERIC_TYPE_DEFINITION --> ( <> } 
=-< “-> range <> 
a --> digits <> 
-- --> delta <> 
=-< --> array ARRAY_TYPE_DEFINITION 
-< --> access SUBTYPE_INDICATION 
function GENERIC_TYPE_DEFINITION return boolean is 
begin 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (BYPASS(TOKEN_BRACKETS)) then 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic type definition"); 
end if3 -- if bypass( token_right_paren) 
else 
SYNTAX_ERROR('"'Generic type definition"); 
end if3 -- if bypass( token_brackets ) 
elsif (BYPASS( TOKEN_RANGE )) or else (BYPASS(TOKEN_DIGITS)) 
or else (BYPASS(TOKEN_DELTA)) then 
if (BYPASS(TOKEN_BRACKETS)) then 
return (TRUE }3 
else 
SYNTAX_ERROR("Generic type definition"); 
end if; -- if bypass( token_brackets ) 
elsif (BYPASS(TOKEN_ARRAY))} then 
if (ARRAY_TYPE_DEFINITICN) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Generic type definition"); 
end if; -- if array_type_definition 
elsif (BYPASS( TOKEN_ACCESS)) then 
if (SUBTYPE_INDICATION) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Generic type definition" )3 
end if; -- if subtype_indication 
else 
return (FALSE )3 
end if; -- if bypass( token_left_paren) 


end GENERIC_TYPE_DEFINITION; 


-- PRIVATE_TYPE_DECLARATION --> [limited ?] private 
function PRIVATE_TYPE_DECLARATION return boolean is 
begin 
if (BYPASS( TOKEN_LIMITED)) then 
nulls 

end if; 

if (BYPASS(TOKEN_PRIVATE )) then 
return (TRUE )3 

else 
return (FALSE )3 

end if} 
end PRIVATE_TYPE_DECLARATION$ 


-- SUBTYPE_DECLARATION --> identifier is SUBTYPE_INDICATION 3 
function SUBTYPE_DECLARATION return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
if (BYPASS(TOKEN_IS)) then 
if (SUBTYPE_INDICATION) then 
if (BYPASS( TOKEN_SEMICOLON)) then 


ie 


return (TRUE); 
else 
SYNTAX_ERROR("Subtype declaration" )} 
end if; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("Subtype declaration" )} 
end if} -- if subtype_indication statement 


else 
SYNTAX_ERROR("Subtype declaration"); 
end if} -- if bypass(token_is) 


else 


return (FALSE )3 
end if} -- if bypass(token_identifier ) 


end SUBTYPE_DECLARATION} 


-- TYPE_DECLARATION --> identifier [DISCRIMINANT_PART 7] 
-- is SUBTYPE_INDICATION} 
function TYPE_DECLARATION return boolean is 
begin 
if (BYPASS( TOKEN_IDENTIFIER)) then 
if (DISCRIMINANT_PART) then 


nulls 
end if} -- if discriminant_part statement 
if (BYPASS(TOKEN_IS)) then -~- declaration is full_type if ‘is' 
if (PRIVATE_TYPE_DECLARATION) then 
nulls 
elsif (TYPE_DEFINITION) then -- present, otherwise incomplete_type 
null; 
else 
SYNTAX_ERROR("Type declaration" )}3 
end if; -- if type_definition statement 
end if} -- if bypass(token_is) 


if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )}3 


else 
SYNTAX_ERROR("Type declaration" )}3 
end if} ~~ if bypass( token_semicolon) 
else 
return (FALSE )}3 
end if} -- if bypass(token_identifier ) 


end TYPE_DECLARATION} 


-- DISCRIMINANT_PART --> (DISCRIMINANT_SPECIFICATION 
i [5 DISCRIMINANT_SPECIFICATION]* ) 
function DISCRIMINANT_PART return boolean is 
begin 
if (BYPASS(TOKEN_LEFT_PAREN)) then 
if (DISCRIMINANT_SPECIFICATION) then 
while (BYPASS( TOKEN_SEMICOLON)) loop 
if not (DISCRIMINANT_SPECIFICATION) then 
SYNTAX_ERROR("'Discriminant part" )3 
end if} -- if not discriminant_specification 
end loop} 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
return (TRUE )} 


else 
SYNTAX_ERROR("Discriminant part" )3 
end if} -- if bypass( token_right_paren ) 
else 
SYNTAX_ERROR("'Discriminant part" )} 
end if} -- if discriminant_specification 
else 
return (FALSE )3 
end if} -- if bypass( token_left_paren) 


end DISCRIMINANT_PART} 
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-- DISCRIMINANT_SPECIFICATION --> IDENTIFIER_LIST : NAME [(:= EXPRESSION 7] 
function DISCRIMINANT_SPECIFICATION return boolean is 
begin 
if (IDENTIFIER_LIST) then 
if (BYPASS(TOKEN_COLON)) then 
if (NAME) then -- check for type_mark 
if (BYPASS( TOKEN_ASSIGNMENT )) then 
if (EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( “Discriminant soecification" )3 
end ifs -- if 2xpression statement 
end it} -- if bypass( toKen_assignment) 
return (TRUE )}3} 
else 
SYNTAX_ERROR( “Discriminant specification’ }3s 
end ifs -- if name statement 
else 
SYNTAX_ERROR( "Discriminant specification" )3 
end if} -- if bypass( token_colon) 
else 
return (FALSE )3 
end ifs -- 1f identifier_list statement 


end DISCRIMINANT_SPECIFICATICNs 


-- TYPE_SEFINITION --> ENUMERATICN_TYPE_DEFINITION 

—- --> INTEGER_TYPE_DEFINITION 

-- --> digits FLOATING_OR_FIXED_PO0INT_CONSTRAINT 
=m --> delta FLOATING_OR_FIKXED_POINT_CONSTRAINT 
~~ --> array ARRAY_TYPE_CEFINITION 

-- -~-> record RECORD_TYPE_OEFINITION 


-~ --> access SUBTYPE_INDICATION 
-- --> new SUBTYPE_INDICATION 
function TYPE_DEFINITION return boolean is 
begin 


if (ENUMERATION_TYPE_DEFINITION) then 
return (TRUE )3 
elsif (INTEGER_TYPE_DEFINITION) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_DIGITS)) or else (BYPASS(TOKEN_DELTA)) then 
if (FLOATING_OR_FIXED_POINT_CONSTRAINT) then 
return (TRUE ); 
else 
SYNTAX_ERROR("Type definition" )}3 
end if}; -- floating_or_fixed_point_constraint 
elsif (BYPASS(TOKEN_ARRAY)) then 
if (ARRAY_TYPE_DEFINITION) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Type definition" )3 
end if} -- if array_type_definition 
elsif (BYPASS(TOKEN_RECORD_STRUCTURE )) then 
if (RECORD_TYPE_DEFINITION) then 
return (TRUE); 
else 
SYNTAX_ERROR("Type definition"); 
end 1f}3 -- if record_type_definition 
elsif (BYPASS( TOKEN_ACCESS)) or else (BYPASS(TOKEN_NEW)) then 
if (SUBTYPE_INDICATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Type definition"); 
end if} -- if subtype_indication 
else 
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return (FALSE )3 
end if} 
end TYPE_DEFINITION} 


-- RECORD_TYPE_DEFINITION --> COMPONENT_LIST end record 
function RECORD_TYPE_DEFINITION return boolean is 
begin 
if (COMPONENT_LIST) then 
if (BYPASS(TOKEN_END)) then 
if (BYPASS( TOKEN_RECORD_STRUCTURE )) then 
return (TRUE }3 


else 


SYNTAX_ERROR(E"Record type definition’ 33 
-- if bypass( token_record-structure) 


end if; 
else 
SYNTAX_ERROR( "Record type definition’ )3 
end if} -- if bypass( token_end)° 
else 
return (FALSE }3 
end if; -- if component_list statement 


end RECORD_TYPE_DEFINITION}3 


-- COMPONENT_LIST --> [COMPONENT_DECLARATION]%* [CVARIANT_PART 7] 


-- --> null 3 
function COMPONENT_LIST return boolean is 
begin 
wnile (COMPONENT _DECLARATION) loop 
nulls 
end loop; 
if (VARIANT_PART} then 
nulls 


elsit ‘BYPASS( TOKEN NULL)) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
nulls 
end if} 
end if} 
return (TRUE )3 
end COMPONENT_LIST}3 


-- COMPONENT_DECLARATION --> IDENTIFIER_LIST : SUBTYPE_INDICATION 
-- {:= EXPRESSION 7] 3 
function COMPONENT_DECLARATION return boolean is 
begin 
if (IDENTIFIER_LIST) then 
if (BYPASS(TOKEN_COLON)) then 
if (SUBTYPE_INDICATION) then 
if (BYPASS( TOKEN_ASSIGNMENT )) then 
if (EXPRESSION) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Component declaration" )3 
end if} -- if bypass(token_semicolon) 


else 
SYNTAX_ERROR( "Component declaration" )}3 
end if} -- if expression statement 


end if3 -- if bypass( token_assignment ) 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Component declaration" )}3 
end if; -- if bypass( token_semicolon) 


else 
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SYNTAX_ERROR("'Component declaration" )3 


end if} -- if subtype_indication statement 
else 
SYNTAX_ERROR( "Component declaration" )}3 
end ifs -- if bypass(token_colon) 
else 
return (FALSE )3 
end if} -- if identifier_list statement 


end COMPONENT_DECLARATION} 


-- VARIANT_PART --> case identifier is [VARIANT]+ end case 3 
function VARIANT_PART return boolean is 
begin . 
if (BYPASS(TOKEN_CASE)) then 
if (BYPASS(TOKEN_IDENTIFIER)) then 
if (BYPASS{TOKEN_IS)) then 
if (VARIANT) then 
while (VARIANT) loop 
nulls 
end loops 
if (BYPASS(TOKEN_END)) then 
if (BYPASS(TOKEN_CASE)) then 
if (BYPASS{TOKEN_SEMICOLON)) then 
return (TRUE )}3 
else 
SYNTAX_ERROR( "Variant part" )3 
end if} -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Variant part')3 
end ifs -- if bypass( token_case ) 
else 
SYNTAX_ERROR("Variant part" )3 
end if} -- if bypass( token_end) 
else 
SYNTAX_ERROR( "Variant part'')3 
end if} -- if variant statement 
else 
SYNTAX_ERROR("Variant part" )} 
end ifs -- if bypass( token_is) 
else 
SYNTAX_ERROR("Variant part" )}3 
end if} -- if bypass(token_identifier ) 
else 
return (FALSE )3 
end if3 -- if bypass( token_case) 
end VARIANT_PART 3 


-- VARIANT --> when CHOICE [ CHOICE]* => COMPONENT_LIST 
function VARIANT return boolean is 
begin 
if (BYPASS(TOKEN_WHEN)) then 
if (CHOICE) then 
while (BYPASS( TOKEN_BAR)) loop 
if not (CHOICE) then 
SYNTAX_ERROR( "Variant" )3 
end ifs -- if not choice statement 
end loop; 
if (BYPASS(TOKEN_ARROW)) then 
if (COMPONENT_LIST) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Variant" )}3 
end if} -- if component_list statement 
else 
SYNTAX_ERROR( "Variant" J} 
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end if}; -- if bypass( token_arrow ) 


else 
SYNTAX_ERROR( "Variant" )5 
end if}; -- if choice statement 
else 
return (FALSE }3 
end if} -- if bypass( token_when ) 


end VARIANT 3 


-- WITH_OR_USE_CLAUSE --> identifier [, identifier ]* 5 
function WITH_OR_USE_CLAUSE return boolean is 
begin 

if (BYPASS( TOKEN_IDENTIFIER)?} then 

while (BYPASS( TOKEN_COMMA}} loop 
if not (BYPASS( TOKEN_IDENTIFIER)) then 
SYNTAX_ERROR("'With or use clause" }}3 
end if} 
end loop}; 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )}3 


else 
SYNTAX_ERROR( "With or use clause" )}3 
end ifs -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end if3 -- if bypass( toKen_identifier ) 


end WITH_OR_USE_CLAUSE 3 


-- FORMAL_PART --> (PARAMETER_SPECIFICATION (3 PARAMETER_SPECIFICATIONI]* ) 
function FORMAL_PART return boolean is 
begin 
if (BYPASS(TOKEN_LEFT_PAREN)} then 
if (PARAMETER_SPECIFICATION) then 
while (BYPASS(TOKEN_SEMICOLON)) loop 
if not (PARAMETER_SPECIFICATION) then 
SYNTAX_ERROR("Formal part'')3 
end ifs -- if not parameter_specification statement 
end loop} 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Formal part" )3 
end if} -- if bypass(token_right_paren) statement 
else 
SYNTAX_ERROR("Formal part'')3 
end if} -- if parameter_specification statement 
else 
return (FALSE )3 
end if} -- if bypass(token_left_paren) statement 


end FORMAL_PART} 


-- IDENTIFIER_DECLARATION --> IDENTIFIER_LIST : IDENTIFIER_DECLARATION_TAIL 
function IDENTIFIER_DECLARATION return boolean is 
begin 
if (IDENTIFIER_LIST) then 
if (BYPASS( TOKEN_COLON}) then 
if (IDENTIFIER_DECLARATION_TAIL) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Identifier declaration" )3 
end if3 -- if identifier list statement 
else 


SYNTAX_ERROR( “Identifier declaration" )3} 


136 


end if3 -- if bypass{token_colon) 


else 
return( FALSE )}3 
end if3 -- if identifier list statement 


end IDENTIFIER_DECLARATION; 


-- IDENTIFIER_DECLARATION_TAIL --> exception EXCEPTION_TAIL 
o= --> constant CONSTANT_TERM 


-- --> array ARRAY_TYPE_DEFINITION 
= {:= EXPRESSION 7] 3; 
-- --> NAME IDENTIFIER_TAIL 
function IDENTIFIER_DECLARATION_TAIL return boolean is 
begin 


if (BYPASS(TOKEN_EXCEPTION)) then 
zf (EXCEPTION_TAIL) then 
return (TRUE); 
else 
SYNTAX_ERROR("Identitier declaration tail" )3 
end if3 -- if exception tail statement 
elsif (BYPASS( TOKEN_CONSTANT)) then 
if (CONSTANT_TERM) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Identifier declaration tail'')3 
end if; -- if constant_term statement 
elsif (BYPASS(TOKEN_ARRAY)) then 
lf (ARRAY_TYPE_DEFINITION) then 
if (BYPASSi TOKEN_ASSIGNMENT)) then 
if (EXPRESSTON) then 


nulls 
else 
SYNTAX_ERROR('"Icentitier declaration ta1l'"')3 
end if3 -- if expression statement 
end if; -- if bypass( tokKen_assignment ) 
else 
SYNTAX_ERROR( "Identifier declaration tail" )3 
end if} -- if array_type_definition 


if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Identifier declaration tail')3 
end if3 -- if bypass( token_semicolon) 
elsif (NAME) then 
if (IDENTIFIER_TAIL) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Identifier declaration tail"); 
end if} -- if identifier_tail 
else 
return (FALSE )3 
end if} -- if bypass( tokKen_exception) 


end IDENTIFIER_DECLARATION_TAIL}3 


-- EXCEPTION_TAIL --> 3} 


-= --> renames NAME 3 
function EXCEPTION_TAIL return boolean is 
begin 


if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_RENAMES)) then 
if (NAME) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Exception tail" )3 
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end ifs -- if bypass( token_semicolon } 


else 
SYNTAX_ERROR( “Exception tail"); 
end if} -- if name statement 
else 
return (FALSE }}3} 
end if} -- if bypass{ token_semicolon) 


end EXCEPTION_TAIL$ 


-- EXCEPTION_CHOICE --> identifier 


-- --> others 
function EXCEPTION_CHOICE return boolean is 
begin 


tt (BYPASS(TCKEN_IDENTIFIER)) then 
return (TRUE J} 

elsit {‘BYPASS(TOKEN_OTHERS)) <hen 
return (TRUE )+3 

else 
return (FALSE })3 

end if} 

end EXCEPTION_CHOICE 3 


-- CONSTANT_TERM --> array ARRAY_TYPE_DEFINITION (:= EXPRESSION 7] ; 


-- --> := EXPRESSION ; 

-- --> NAME IDENTIFTIER_TAIL 
function CONSTANT_TERM return Soolean is 
begin 


it (BYPASS(TOKEN_ARRAY)} *then 
if (ARRAY_TYPE_DEFINITION) then 
if (BYPASS( TOKEN_ASSIGNMENT})) then 
if (EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( "Constant term )35 
end if} -- if expression statement 
end if} -- if bypass( token_assignment } 
else 
SYNTAX_ERROR( "Constant term )35 
end if} -- if array_type_definition 


if (BYPASS(TOKEN_SEMICOLON)) then 

return (TRUE )3 
else 

SYNTAX_ERROR( "Constant term'')3 
end if} -- if bypass( token_semicolon) 

elsif (BYPASS( TOKEN_ASSIGNMENT ))} then 

if (EXPRESSION) then 

if (BYPASS( TOKEN_SEMICOLON)) then 

return (TRUE )3 


else 
SYNTAX_ERROR( "Constant term" )}3 
end if} -- if bypass( tokKen_semicolon) 
else 
SYNTAX_ERROR( "Constant term" )}3 
end if} -- if expression statement 


elsif (NAME) then 
if (IDENTIFIER_TAIL) then 
return (TRUE )}3 


else 
SYNTAX_ERROR("Constant term'')3 
end if3 ~- if identifier_tail statement 
else 
return (FALSE }}3 
end if} -- if bypass( token_array } 


end CONSTANT_TERM$ 
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-- IDENTIFIER_TAIL --> [CONSTRAINT ?] [:= EXPRESSION ?] 3 
-- --> [renames NAME 7] 3 
function IDENTIFIER_TAIL return boolean is 
begin 
if (CONSTRAINT) then 
null; 
end if} -- if constraint statement 
if (BYPASS( TOKEN_RENAMES)) then 
if (NAME) then 


nulls 
else 
SYNTAX_ERROR( "Identifier tail" )3 
end if} ~~ if name statement 
end if3 -- if bypass( token_renames ) 


if (BYPASS(TOKEN_ASSIGNMENT)) then 
if (EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( "Identifier tail')3 
end if} -- if expression statement 
end if} -- if bypass( token_assignment ) 


if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 

else 
return (FALSE )3 


end ifs -- if bypass( token_semicolon) 
end IDENTIFIER_TAIL} 


See eS SP SF SS SF SF SF SP SF SP SF SF 2 FTF SF SF SF SF SF SF SF SF SF SF FTF SF SF SF FTF SF SF SF SF SF SF SF SF SF SF SF SF TFT SF SF SF 8 FTF SF 8 TF SF TFT eesF8T SO SF eT ee ee ee Se See es es ee 


~~ PARAMETER_SPECIFICATION --> IDENTIFIER_LIST : MODE NAME [:= EXPRESSION 7] 
function PARAMETER_SPECIFICATION return boolean is 
begin 

if (IDENTIFIER_LIST) then 

if (BYPASS(TOKEN_COLON)) then 
if (MODE) then 
if (NAME) then -- check for type_mark 
if (BYPASS( TOKEN_ASSIGNMENT )) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX_ERROR( "Parameter specification" )3 
end if3 -- if expression statement 
end if} -- if bypass( token_assignment) 
return (TRUE )3 
else 
SYNTAX_ERROR("'Parameter specification" )3 
end if} -- if name statement 
else 
SYNTAX_ERROR("Parameter specification" )}3 
end if} -- if mode statement 
else 
SYNTAX_ERROR("'Parameter specification" )3$ 
end if} -- if bypass( token_colon) 
else 
return (FALSE )3 
end if3 -- if identifier_list statement 


end PARAMETER_SPECIFICATION$ 
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~~ IDENTIFIER_LIST --> identifier [, identifier ]* 
function IDENTIFIER_LIST return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
while (BYPASS( TOKEN_COMMA)) loop 
if not (BYPASS(TOKEN_IDENTIFIER)) then 
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SYNTAX_ERROR( “Identifier list')s 


end if}; -- if not bypass(token_identifer) statement 
end loop}; 
return (TRUE )}3 
else 
return (FALSE )}3 
end if} -- if bypass( token_identifier) statement 


end IDENTIFIER_LIST} 


-- MODE --> [in ?] 
-- --> in out 


-- =--> out 
function MODE return boolean is 
begin 


if (BYPASS(TOKEN_IN)) then 

if (BYPASS(TOKEN_OUT)) then 
nulls 

end if} 

elsif (BYPASS(TOKEN_OUT)) then 
nulls 

end if} 

return (TRUE )3 

end MODE; 


-- DESIGNATOR --> identifier 
-- --> string_literal 
function DESIGNATOR return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_STRING_LITERAL)) then 
return (TRUE )}3 
else 
return (FALSE )3 
end if} 
end DESIGNATOR} 


-- SIMPLE_STATEMENT --> null 3 

-- --> ASSIGNMENT_OR_PROCEDURE_CALL 
-- --> exit EXIT_STATEMENT 

-- --> return RETURN_STATEMENT 

-- --> goto GOTO_STATEMENT 

-- --> delay DELAY_STATEMENT 

== --> abort ABORT_STATEMENT 


== --> raise RAISE_STATEMENT 
function SIMPLE_STATEMENT return boolean is 
begin 


if (BYPASS(TOKEN_NULL)) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR("Simple statement" )3 
end if}; 
elsif (ASSIGNMENT_OR_PROCEDURE_CALL) then -- includes a check for a 
return (TRUE )}3 clend code statement and an 


elsif (BYPASS(TOKEN_EXIT)) then 
if (EXIT_STATEMENT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Simple statement" )}3 
end if}; 
elsif (BYPASS(TOKEN_RETURN)) then 
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entry call statement. 


if (RETURN_STATEMENT) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Simple statement" )35 
end ifs 
elsif (BYPASS{ TOKEN_GOTO)) then 
if (GOTO_STATEMENT) then 
return (TRUE }5 
else 
SYNTAX_ERROR("Simple statement" )3 
end ifs 
elsif (BYPASS( TOKEN_DELAY)) then 
if (OELAY_STATEMENT?) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Simple statement" )3 
end if; 
elsif (BYPASS( TOKEN_ABORT)) then 
if (ABORT_STATEMENT) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Simple statement" )35 
end if} 
elsif (BYPASS( TOKEN_RAISE)) then 
if (RAISE_STATEMENT) then 
return (TRUE }3 
else 
SYNTAX_ERROR( "Simple statement" )5 
end if; 
else 
return (FALSE )3 
end if; 
end SIMPLE _STATEMENT 3 


-- ASSIGNMENT_OR_PROCEODURE_CALL --> NAME := EXPRESSION 3 

~~ --> NAME 53 
function ASSIGNMENT_OR_PROCEDURE_CALL return boolean is 
begin 

if (NAME) then 

if (BYPASS( TOKEN_ASSIGNMENT )) then 
if (EXPRESSION) then 
if (BYPASS( TOKEN_SEMICOLON)) then 


return (TRUE )s5 -- parsed an assignment statement 
else 
SYNTAX_ERROR( “Assignment or procedure call''}3 
end if3 -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Assignment or procedure call"); 
end if3 -- if expression statement 
elsif (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )5 -- parsed a procedure call statement 
else 
SYNTAX_ERROR("Assignment or procedure call"); 
end ifs -- 1f bypass( tokKen_assignment ) 
else 
return (FALSE)s5 
end if} -- if name statement 


end ASSIGNMENT_OR_PROCEDURE_CALL’} 


-- LABEL --> << identifier >> 
function LABEL return boolean is 
begin 
if (BYPASS(TOKEN_LEFT_BRACKET)) then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
if (BYPASS( TOKEN_RIGHT_BRACKET)) then 
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return (TRUE); 
else 
SYNTAX_ERROR( "Label" ); 
end if} 
else 
SYNTAX_ERROR({ "Label" )3 


end if3 


else 
return (FALSE)3 


end if3 
end LABEL} 


-- if bypass( token_right_bracket) 
-- if bypasss(token_identifier ) 


-- if bypass( token_left_bracket ) 


-- ENTRY_CECLARATION --> entry identifier [(DISCRETE_RANGE) ?] 
-- {[FORMAL_PART 7] ; 
function ENTRY _DECLARATION return boolean is 
begin 
if (BYPASS(TOKEN_ENTRY}) then 
it (BYPASS(TOKEN_IDENTIFIER)) then 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (DISCRETE_RANGE) then 
if (BYPASS({TOKEN_RIGHT_PAREN)) then 
null; 
else 
SYNTAX_ERROR( "Entry declaration’ }3 
end if} -- if bypass{ token_rignt_»raren) 


else 
SYNTAX_ERROR( “Entry declaration" J); 
-- if discrete_range statement 


end ifs 
end ifs -- if bypassi token_lett_paren) 
.t (FORMAL_? ART) then 

null; 
end if; -- if formal_part statement 


it (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE }3 


else 
SYNTAX_ERROR("“Entry declaration"); 
end ifs -~- if bypass( token_semicolon) 
else 
SYNTAX_ERROR("“Entry declaration" )}3 
end if; -- if bypass( token_identifier) 
else 
return (FALSE )3 
end if} -- if bypass({ tokKen_entry ) 


end ENTRY_DECLARATION; 


~~ REPRESENTATION_CLAUSE --> for NAME use record RECORD_REPRESENTATION_CLAUSE 


-- --> for NAME use [at 7] SIMPLE_EXPRESSION} 
function REPRESENTATION_CLAUSE return boolean is 
begin 


if (BYPASS( TOKEN_FOR)) then 
if (NAME) then 
if ({(BYPASS({TOKEN_USE)) then 
if (BYPASS(TOKEN_RECORD_STRUCTURE )) then 
if (RECORD_REPRESENTATION_CLAUSE ) then 
return (TRUE); 
else 
SYNTAX_ERROR({ “Representation clause" )} 
end if} -- if record_representation_clause 
elsif (BYPASS(TOKEN_AT)) then 
if (SIMPLE_EXPRESSION) then 
if (BYPASS{ TOKEN_SEMICOLON)) then 
return (TRUE )3 
else 


SYNTAX_ERROR( "Representation clause" )} 
end if} -- if bypass({ token_semicolon) 
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else 
SYNTAX_ERROR( "Representation clause" )} 
end if} -- if simple_expression statement 
elsif (SIMPLE_EXPRESSION) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Representation clause" )5 
end if; -- if bypass( token_semicolon) 
else 
SYNTAX_ERROR( "Representation clause"); 
end ifs -- if bypass( token_record) 
else 
SYNTAX_ERROR( "Representation clause" )3 
end if} -- if bypass( token_use) 
else 
SYNTAX_ERROR( "Representation clause" }3 
end if; -- if name statement 
else 
return (FALSE)$3 
end if} -- if bypass( token_for ) 


end REPRESENTATION_CLAUSE $ 


-- RECORD_REPRESENTATION_CLAUSE --> [at mod SIMPLE_EXPRESSION 7] 


-- [NAME at SIMPLE_EXPRESSION range RANGES I]* 
end record 3 
function RECORD_REPRESENTATION_CLAUSE return boolean is 
begin 
if (BYPASS{TOKEN_AT)) then 
if (BYPASS( TOKEN_MOD)}) then 
if (SIMPLE_EXPRESSION} then 


nulls 
else 
SYNTAX_ERROR( "Record representation clause" )}3 
end if} ~~ if simple_expression 
else 
SYNTAX_ERROR("Record representation clause" )3 
end if} -- if bypass( token_mod) 
end if} -- if bypass(token_at ) 


while (NAME) loop 
if (BYPASS(TOKEN_AT)) then 
if (SIMPLE_EXPRESSION) then 
if (BYPASS( TOKEN_RANGE )) then 
if (RANGES) then 


nulls 
else 
SYNTAX_ERROR( "Record representation clause" )} 
end if} -- if ranges statement 
else 
SYNTAX_ERROR("Record representation clause" )}3 
end ifs -- if bypass( token_range ) 
else 
SYNTAX_ERROR( "Record representation clause" )}3 
end if} -~- if simple_expression 
else 
SYNTAX_ERROR( "Record representation clause" )}3 
end if} -- if bypass( token_at ) 
end loop; 


if (BYPASS( TOKEN_END)) then 
if (BYPASS( TOKEN_RECORD_STRUCTURE )) then 
if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE J} 


else 
SYNTAX_ERROR( "Record representation clause" )3 
| end if3 -- if bypass( token_semicolon) 
else 


SYNTAX_ERROR("'Record representation clause" )}3 
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end if; -- if bypass( token_record_structure ) 
else 
return (FALSE )3 
end if; -- if bypass( token_end) 
end RECORD_REPRESENTATION_CLAUSE 3 


end PARSER_2}3 
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MLTLE : 


MODULE NAME: 
DATE CREATED: 
LAST MODIFIED: 


AN ADA SOFTWARE METRIC 


PACKAGE PARSER_3 
22 JUL 86 
O03 DEC 86 


AUTHORS: LCDR JEFFREY L. NIEDER o- 
LT KARL S. FAIRBANKS, JR. -— 
DESCRIPTION: This package contains thirty-five functions =< 


that make up the baseline productions for our top-down, 
recursive descent parser. 


Dy 


Each function is »receded 
the grammar productions they are implementing. 


HIE HE HEHE HE IEE IH IEE EH EEE EEE IEE HEE HE IE IE IE IE HE IE EE FE HE IE FE IE IE HE HE IE IE HE HE FE FE HE EE HE EE HE HE HEHEHE HE HEH we 


with PARSER_+, 3YPASS_FUNCTION, HALSTEAD_METRIC, GLOBAL_PARSER, GLOBAL; 
use PARSER_¢, BYPASS_FUNCTION, HALSTEAD_METRIC, GLOBAL_?ARSER, GLOBAL, 


package PARSER_2 is 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


SUBTYPE_INDICATION return booleans 
ARRAY _TYPE_OEFINITION return oooleans 
CHOICE return boolean; 
ITERATION _ SCHEME return boolean; 
LOOP_PARAMETER_SPECIFICATION return boolean; 
EXPRESSION return oooleans 

RELATION return boolean; 

RELATION TAIL return booiean;s 

SIMPLE _EXPRESSION return boolean; 
SIMPLE _EXPRESSION_TAIL return dboolieans 
TERM return boolean; 

FACTOR return booleans 

PRIMARY return booleans 

CONSTRAINT return boolean; 
FLOATING_OR_FIXED_POINT_CONSTRAINT return boolean; 
INDEX_CONSTRAINT return boolean; 
RANGES return boolean}; 

AGGREGATE return boolean; 
COMPONENT_ASSOCIATION return boolean; 
ALLOCATOR return boolean; 

NAME return boolean; 

NAME_TAIL return boolean; 
LEFT_PAREN_NAME_TAIL return boolean; 
ATTRIBUTE_DESIGNATOR return boolean; 
INTEGER_TYPE_DEFINITION return boolean; 
DISCRETE_RANGE return boolean} 
EXIT_STATEMENT return boolean; 
RETURN_STATEMENT return boolean; 
GOTO_STATEMENT return boolean} 
DELAY_STATEMENT return boolean; 
ABORT_STATEMENT return boolean; 
RAISE_STATEMENT return boolean; 


end PARSER_33 


package body PARSER_3 is 


-- SUBTYPE_INDICATION --> NAME [CONSTRAINT 7] 
function SUBTYPE_INDICATION return boolean is 
begin 


if (NAME) then 


-- check for type_mark 


if (CONSTRAINT) then 
nulls 

end if} 

return (TRUE); 
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else 
return (FALSE )}3 


end ifs 
end SUBTYPE_INDICATION; 
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-- ARRAY_TYPE_DEFINITION --> (INDEX_CONSTRAINT of SUBTYPE_INDICATION 

-- this function parses both constrained and unconstrained arrays 
function ARRAY_TYPE_DEFINITION return boolean is 
begin 

if (BYPASS! TOKEN_LEFT_PAREN)) then 

if (INDEX_CONSTRAINT) then 
if (BYPASS(TOKEN_9OF}) then 
if (SUBTYPE_INDICATION) then 
return (TRUE); 


else 
SYNTAX_ERROR( "Array detinition’’ 13 
and if} -- if subtype_indication 
else 
SYNTAX_ERROR( "Array definition’ )3 
end if; -- if bypass( token_of) 
else 
SYNTAX_ERROR( "Array definition" )3 
end if} -- if index_sonstraint statement 
else 
return (FALSE )3 
end ifs -- 1f oypass( token_letft_paren) 


end ARRAY_TYPE_DEFINITIONS$ 
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=~ CHOICE --> EXPRESSION [.:SIMPUESEXPRESSIGN) 4 
-- --> EXPRESSION (CGNSTRAINT ?] 


== --> others 
function CHOICE return boolean is 
begin 


if (EXPRESSION) then 
if (BYPASS(TOKEN_RANGE_DOTS)) then -- check for discrete_range 


if (SIMPLE_EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( "Choice" )}3 
end ifs -- if simple_expression statement 
elsif (CONSTRAINT) then 
nulls 
end if; -- if bypass token_range_dots 


return (TRUE )3 
elsif (BYPASS( TOKEN_OTHERS)) then 
return (TRUE )3 


else 
return (FALSE )3 


end ifs 
end CHOICE; 


-- ITERATION_SCHEME --> while EXPRESSION 
-- --> ‘for LOOP_PARAMETER_SPECIFICATION 
function ITERATION_SCHEME return boolean is 
begin 
if (BYPASS( TOKEN_WHILE)) then 
NESTING_METRIC( WHILE CONSTRUCT )}3 
if (EXPRESSION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Iteration scheme" )3 


end if3 
elsif (BYPASS( TOKEN_FOR)) then 
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NESTING_METRIC( FOR_CONSTRUCT )3 
if (LOOP_PARAMETER_SPECIFICATION) then 
return (TRUE )3 
else 
SYNTAX_ERROR( “Iteration scheme" )3 
end if} 
else 
return (FALSE )3 
end if3 
end ITERATION_SCHEME 3 


-- LOOP_PARAMETER_SPECIFICATION --> identifier in [reverse ?] DISCRETE_RANGE 
function LOOP_PARAMETER_SPECIFICATICN return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
if (BYPASS(TOKEN_IN)) then 
if (BYPASS( TOKEN_REVERSE)) then 
nulls 
end if; -- if bypass( token_reverse) 
if (DISCRETE_RANGE) then 
return (TRUE); 


else 
SYNTAX_ERROR(“Loop parameter specification" )3 
end ifs -- if discrete_range statement 
else 
SYNTAX_ERROR( "Loop parameter specification" )3 
end if; -- if bypass(token_in) 
else 
return (FALSE )3 
end ifs -- if bypass{ token_identifier) 


end LOOP_PARAMETER_SPECIFICATION; 


-- EXPRESSION --> RELATION [RELATION_TAIL 7] 
function EXPRESSION return boolean is 
begin 
if (RELATION) then 
if (RELATION_TAIL) then 


nulls 
end if}; -- if relation_tail statement 
return (TRUE )3 
else 
return (FALSE); 
end if} -- if relation statement 


end EXPRESSIONs 


-- RELATION --> SIMPLE_EXPRESSION [SIMPLE_EXPRESSION_TAIL 7] 
function RELATION return boolean is 
begin 
if (SIMPLE_EXPRESSION) then 
if (SIMPLE_EXPRESSION_TAIL) then 


nulls 
end ifs -- if simple_expression_tail statement 
return (TRUE )3 
else 
return (FALSE); 
end if; -- if simple_expression statement 


end RELATION} 


-- RELATION_TAIL --> [and [then ?7] RELATION]* 
ae --> [or felse ?] RELATION]* 
— --> [xor RELATION ]* 
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function RELATION_TAIL return boolean is 
begin 
while (BYPASS( TOKEN_AND)) loop 
if (BYPASS( TOKEN_THEN}) then 
nulls 
end if} -~ if bypass( token_then) 
if not (RELATION) then 
SYNTAX_ERROR("“Relation tail" )}3 
end ifs -- if not relation statement 
end loop; 
while (BYPASS( TOKEN_OR)) loop 
if (BYPASS( TOKEN_ELSE)) then 
nulls 
end if} -- if bypass( token_else} 
if not (RELATION) then 
SYNTAX_ERROR( "Relation tail" }3 
end if}3 -- if not relation statement 
end loops 
while (BYPASS( TOKEN_XOR}) loop 
1f not (RELATION) then 
SYNTAX_ERROR( “Relation tail" }3 
end if} -- if not relation statement 
end loop; 
return (TRUE )3 
end RELATION_TAIL3 


-- SIMPLE_EXPRESSION --> [+ ?] TERM [BINARY_ADDING_OPERATOR TERM] 

== --> {- ?] TERM (BINARY ADDING_OPERATOR TERMI] 
function SIMPLE_=XPRESSION return boolean is 
begin 

if (BYPASS( TOKEN_PLUS) or BYPASS( TOKEN_MINUS)})) then 

if (TERM) then 
while (BINARY_ADDING_OPERATOR} loop 
if not (TERM} then 
SYNTAX_ERROR("Simple expression" )}3 


end if} -- if not term statement 
end loop} 
return (TRUE )3 
else 
SYNTAX_ERROR("Simple expression" )3 
end if} -- if term statement 


elsif (TERM) then 
while (BINARY_ADDING_OPERATOR) loop 
if not (TERM) then 
SYNTAX_ERROR( "Simple expression" )3 


end ifs -- if not term statement 
end loops 
return (TRUE )}3 
else 
return (FALSE )3 
end if} -- if bypass(token_plus) et al statement 


end SIMPLE_EXPRESSION3 


-- SIMPLE_EXPRESSION_TAIL --> RELATIONAL_OPERATOR SIMPLE_EXPRESSION 
=a --> [not ?] in RANGES 
-- --> [not ?] in NAME 
function SIMPLE_EXPRESSION_TAIL return boolean is 
begin 
if (RELATIONAL_OPERATOR)} then 
if (SIMPLE_EXPRESSION) then 
return (TRUE )3 
else 
SYNTAX_ERROR("'Simple expression tail"); 
end if} ~~ if simple_expression statement 
elsif (BYPASS( TOKEN_NOT)) then 
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if (BYPASS(TOKEN_IN)) then 
if (RANGES) then 
return (TRUE); 
elsif (NAME) then 
return (TRUE )}3 


else 


SYNTAX_ERROR("Simple expression tail" )3 
-- if ranges statement 


-- check for type_mark 


end if} 
else 
SYNTAX_ERROR( "Simple expression tail"); 
end if} -- if bypass(token_in) statement 


elsif (BYPASS(TOKEN_IN)) then 
if (RANGES) then 
return {TRUE )3 
elsi¢t (NAME) then 
return (TRUE); 


-- cneck for type_mark 


alse 
SYNTAX_ERROR("'Simpie axpression tail')3 
end if} -- if ranges statement 
else 
return (FALSE )}3 
end if} -- if relational_operator statement 


end SIMPLE_EXPRESSION_TAIL} 


-- TERM --> FACTOR (MULTIPLYING_OPERATOR FACTOR Ix 
function TERM return boolean is 


begin 
lf (FACTOR) then 
while (MULTIPLYING _OPERATOR) loop 


if mot (FACTOR) then 
SYNTAX _ERROR( "Term" )}3 
end ifs 
end loop; 
return (TRUE )3 
else 
return (FALSE )3 
end if3 
end TERM} 


-- if not factor statement 


-~- if factor statement 
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-- FACTOR --> PRIMARY [** PRIMARY ?] 
-- --> abs PRIMARY 
-- --> not PRIMARY 
function FACTOR return boolean is 
begin 
if (PRIMARY) then 
if (BYPASS( TOKEN_EXPONENT )) then 
if (PRIMARY) then 


nulls 
else 
SYNTAX_ERROR("Factor" )3 
end if} -- if primary statement 
end if} -- if bypass( token_exponent) statement 


return (TRUE )3 
elsif (BYPASS(TOKEN_ABSOLUTE)) then 
if (PRIMARY) then 
return (TRUE )3 
else 
SYNTAX_ERROR(“Factor")3 
end if} 
elsif (BYPASS( TOKEN_NOT)) then 
if (PRIMARY) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Factor" )3} 
end if} 


~~ if primaryl(abs) statement 


-- if primary(not) statement 
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else 
return (FALSE )3 
end ifs -- if primary statement 
end FACTOR; 


-- PRIMARY --> numeric_literal 
-- --> null 
-- --> string_literal 
-- --> new ALLOCATOR 
-- --> NAME 
-- --> AGGREGATE 
fumction PRIMARY return boolean is 
begin 
if (BYPASS(TOKEN_NUMERIC_LITERAL)) then 
return (TRUE); 
alsif {BYPASS( TOKEN_NULL)) then 
return (TRUZ)} 
elsif ‘BYPASS( TOKEN_STRING_LITERAL)) then 
return (TRUE); 
elsif (BYPASS! TOKEN_NEW)) then 
if (ALLOCATOR) then 
return (TRUE )3 
else 
SYNTAX_ERROR( “Primary'')5 
end ifs -- if allocator statement 
elsif (NAME) then 
return (TRUE )3 
elsif (AGGREGATE) then 
return (TRUE); 
2ise 
return (FALSE })3 
end if; -- if bypass! token_leftt_paren) 
end PRIMARY} 


-- CONSTRAINT --> range RANGES 
ae --> range <> 
-- --> digits FLOATING_OR_FIXED_POINT_CONSTRAINT 
-- --> delta FLOATING_OR_FIXED_POINT_CONSTRAINT 
-- --> (INDEX_CONSTRAINT 
function CONSTRAINT return boolean is 
begin 
if (BYPASS(TOKEN_RANGE )}) then 
if (RANGES) then 
return (TRUE )3 


elsif (BYPASS({TOKEN_BRACKETS)) then -- check for <> when parsing 
return (TRUE )3 -- an unconstrained array 
else 
SYNTAX_ERROR( "Constraint" )3 
end if} -- if ranges statement 


elsif (BYPASS(TOKEN_DIGITS)) or else (BYPASS( TOKEN_DELTA)) then 
if ( FLOATING_OR_FIXED_POINT_CONSTRAINT) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Constraint" )5 
end if} 
elsif (BYPASS( TOKEN_LEFT_PAREN)) then 
if (INDEX_CONSTRAINT) then 
return (TRUE )3 
else 
SYNTAX_ERROR( "Constraint" )3 
end if}; 
else 
return (FALSE); 
end if; 
end CONSTRAINT} 
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-- FLOATING_OR_FIXED_POINT_CONSTRAINT --> SIMPLE_EXPRESSION [range RANGES 7] 
function FLOATING_OR_FIXED_POINT_CONSTRAINT return boolean is 
begin 
if (SIMPLE_EXPRESSION) then 
if (BYPASS( TOKEN_RANGE )) then 
if (RANGES) then 


null} 
else 
SYNTAX_ERROR( "Floating or fixed point constraint" )35 
end if} -- if ranges statement 
end if} -- if bypass(token_range ) 
return (TRUE )3 
else 
return (FALSE )3 
end if} -- if simple_expression statement 


end FLOATING_OR_FIXED_POINT_CONSTRAINT 3 


-- INDEX_CONSTRAINT --> DISCRETE_RANGE [, DISCRETE_RANGE ]* ) 
function INDEX_CONSTRAINT return boolean is 
begin 
if (DISCRETE_RANGE) then 
while (BYPASS( TOKEN_COMMA)) loop 
if not (DISCRETE_RANGE) then 
SYNTAX_ERROR( "Index constraint" )3 
end if; -- if not discrete_range 
end loop; 
if (BYPASS( TOKEN_RIGHT_®AREN)) then 
return (TRUE); 


else 
SYNTAX_ERROR( "Index constraint" )3 
end if3 -- if bypass( toKen_right_paren) 
else 
return (FALSE )3 
end if} -- if discrete_range statement 


end INDEX_CONSTRAINT 3 


-- RANGES --> SIMPLE_EXPRESSION [..SIMPLE_EXPRESSION 7] 
function RANGES return boolean is 
begin 
if (SIMPLE_EXPRESSION) then 
if (BYPASS( TOKEN_RANGE_DOTS)) then 
if (SIMPLE_EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( "Ranges" ) 3 
end if} -- if simple_expression statement 
end if} -- if bypass( token_range_dots ) 
return (TRUE )3 
else 
return (FALSE )3 
end ifs -- if simple_expression statement 


end RANGES}; 


-- AGGREGATE --> (COMPONENT_ASSOCIATION [, COMPONENT_ASSOCIATION ]* ) 
function AGGREGATE return boolean is 
begin 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (COMPONENT_ASSOCIATION) then 
while (BYPASS( TOKEN_COMMA)) loop 
if not (COMPONENT_ASSOCIATION) then 
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SYNTAX_ERROR( "Aggregate" )5 
end if} -- if not component association 
end loops 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
return (TRUE )5 


else 
SYNTAX_ERROR( “Aggregate" )5 
end if} -- if bypass( token_right_paren ) 
else 
SYNTAX_ERROR( "Aggregate" )3 
end if} -- if component_association statement 
else 
return (FALSE )3 
end ifs -- if bypass{ token_left_paren) 


end AGGREGATE 3 


-- COMPONENT_ASSOCIATION --> [CHOICE ( CHOICE]* => 7] EXPRESSION 
function COMPONENT_ASSOCIATION return boolean is 
begin 

if (CHOICE) then 

while (BYPASS{TOKEN_BAR)) loop 
if not (CHOICE) then 
SYNTAX_ERROR( "Component asociation" )}3 
end ifs 
end loops 
if (BYPASS{TOKEN_ARROW)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX_ERROR( "Component asociation" J} 
end if} -- if expression statement 
end ifs -- if bypass( token_arrow ) 
return (TRUE); 
else 
return (FALSE )3 
end if} -- if choice statement 


end COMPONENT_ASSOCIATION} 


-- ALLOCATOR --> SUBTYPE_INDICATION [ ‘AGGREGATE 7] 
function ALLOCATOR return boolean is 
begin 
if (SUBTYPE_INDICATION) then 
if (BYPASS({ TOKEN_APOSTROPHE }} then 
if (AGGREGATE) then 


nulls 
else 
SYNTAX_ERROR(“Allocator'" )5 
end if} -- if aggregate statement 
end ifs -- if bypass(token_apostrophe ) 
return (TRUE )3 
else 
return (FALSE )5 : 
end ifs -- if subtype_indication statement 


end ALLOCATOR}$ 


-- NAME --> identifier [NAME_TAIL 7] 


-- --> character_literal [NAME_TAIL 7] 
-- --> string_literal [NAME_TAIL 7] 
function NAME return boolean is 
begin 


if (BYPASS(TOKEN_IDENTIFIER)) then 
if (NAME_TAIL) then 
nulls 
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end if}; 
return (TRUE )3 
elsif (BYPASS( TOKEN_CHARACTER_LITERAL)) then 
if (NAME_TAIL) then 
null; 
end if} 
return (TRUE )3 
elsif (BYPASS( TOKEN_STRING_LITERAL)) then 
if (NAME_TAIL) then 
nulls 
end if3 
return (TRUE )3 
else 
return (FALSE }3 
end if; 
end NAME; 


~- NAME_TAIL <--> ‘LEFT_PAREN_NAME_TAIL 
-- --> .SELECTOR [NAME_TAIL1]* 
-- --> ‘AGGREGATE [NAME_TAIL ]* 
-= --> ‘ATTRIBUTE_DESIGNATOR [NAME_TAIL ]* 
function NAME_TAIL return boolean is 
begin 
if (BYPASS( TOKEN_LEFT_?4REN)3 then 
if (LEFT_PAREN_NAME_TAIL) then 
return (TRUE); 
else 
return (FALSE })3 
end its -- if left_paren_name_tail 
elsif (BYPASS( TOKEN_PERIOD)) then 
if (SELECTOR) then 
while (NAME_TAIL) loop 
null; 
end loop}; 
return (TRUE )3 
else 
SYNTAX_ERROR( "Name tail"); 
end if} -- if selector statement 
elsif (BYPASS( TOKEN_APOSTROPHE)) then 
if (AGGREGATE) then 
while (NAME_TAIL) loop 
null; 
end loop}; 
return (TRUE); 
elsif (ATTRIBUTE_DESIGNATOR) then 
while (NAME_TAIL) loop 
null; 
end loop; 
return (TRUE); 
else 
SYNTAX_ERROR( "Name tail") 3 
end if} -- if aggregate statement 
else 
return (FALSE )3 
end if} -- if bypass( token_left_paren) 


end NAME_TAIL3}3 


-- LEFT_PAREN_NAME_TAIL --> [FORMAL_PARAMETER ?] EXPRESSION [..EXPRESSION 7] 
== [, C[FORMAL_PARAMETER ?] EXPRESSION [..EXPRESSION 7] ]% 
== ) [NAME_TAIL ]* 

function LEFT_PAREN_NAME_TAIL return boolean is 

begin 
if (FORMAL_PARAMETER) then -- check for optional formal parameter 

nulls -- before the actual parameter 

end if}; -- if formal_parameter statement 
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if (EXPRESSION) then 
if (BYPASS( TOKEN_RANGE_DOTS)) then 
if not (EXPRESSION) then 
SYNTAX_ERROR( "Left paren name tail" )3 
end if} -- if not expression statement 
end if} -- if bypass(token_range_dots ) 
while (BYPASS( TOKEN_COMMA)) loop 
if (FORMAL_PARAMETER) then 
nulls 
end if} -- if formal_parameter statement 
if not (EXPRESSION) then 
SYNTAX_ERROR( "Left paren name tail" )3 
end if} -- if not expression statement 
if (BYPASS(TCKEN_RANGE_DOTS)) then 
if mot (EXPRESSION) then 
SYNTAX_ERROR( "Left paren name taii')3 


end it3 -- if not expression statement 
end ifs -- if bypass token_range_dots } 
end loop; 


it (BYPASS(TOKEN_RIGHT_PAREN)) then 
while (NAME_TAIL) loop 
null; 
end loops 
return (TRUE )3 
else 
return (FALSE )3 
end if; -- if bypass( token_right_paren) 
elsif (DISCRETE_RANGE) then 
if ‘BYPASS(TOKEN_RIGHT_PAREN)) then 
wnile (NAME_TAIL} loop 
nulls 
2nd loops 
return (TRUE )3 


else 
SYNTAX_ERROR( "Left paren name tail'')3 
end if; -- if bypass(token_right_paren ) 
else 
return (FALSE )3 
end if} -- if expression statement 


end LEFT_PAREN_NAME_TAIL3 ; 


-- ATTRIBUTE_DESIGNATOR --> identifier [( EXPRESSION) 7] 

-- --> range [(EXPRESSION) 72] 

== --> digits [(EXPRESSION) 7?] 

== --> delta [(EXPRESSION) 7] 
function ATTRIBUTE_DESIGNATOR return boolean is 
begin 

if (BYPASS(TOKEN_IDENTIFIER)) or else (BYPASS( TOKEN_RANGE )) then 

if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (EXPRESSION) then 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 


nulls; 
else 
SYNTAX_ERROR( "Attribute designator"); 
end if} -- if bypass( token_right_paren) statement 
else 
SYNTAX_ERROR( "Attribute designator" )5 
end if} -- if expression statement 
end if3 -- if bypass(token_left_paren) statement 


return (TRUE )3 
elsif (BYPASS( TOKEN_DIGITS)) or else (BYPASS( TOKEN_DELTA)) then 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (EXPRESSION) then 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
null; 
else 
SYNTAX_ERROR( "Attribute designator" J} 
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end if}; -- if bypass(token_right_paren) statement 


else 
SYNTAX_ERROR( "Attribute designator"); 
end if} -- if expression statement 
end if} -- if bypass(token_left_paren) statement 
return (TRUE )}3 
else 
return (FALSE )3 
end if} -- if bypass(token_identifier) statement 


end ATTRIBUTE_DESIGNATOR}3 


-- INTEGER_TYPE_DEFINITION --> range RANGES 
function INTEGER_TYPE_DEFINITION return boolean is 
begin 

if (BYPASS( TOKEN_RANGE )) then 

if (RANGES) then 

return (TRUE); 
else 

SYNTAX_ERROR( “Integer type definition"); 
end if} 

else 

return (FALSE )3 

end if} 

end INTEGER_TYPE_DEFINITION; 


-- DISCRETE_RANGE --> RANGES {CONSTRAINT 7] 
function DISCRETE_RANGE return boolean is 
begin 
if (RANGES) then 
if (CONSTRAINT) then 


nulls 
end if3 -- if constraint statement 
return (TRUE )3 
else 
return (FALSE )3 
end if}; -- if ranges statement 


end DISCRETE_RANGE 3 


-- EXIT_STATEMENT --> [NAME 7] [When EXPRESSION 7] 3 
function EXIT_STATEMENT return boolean is 
begin 
if (NAME) then 
null; 
end if}; -- if name statement 
if (BYPASS( TOKEN_WHEN)) then 
if (EXPRESSION) then 


nulls 
else 
SYNTAX_ERROR( "Exit statement" ); 
end if} ; -- if expression statement 
end if} -- if bypass( token_when ) 


if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3} 
else 
return (FALSE )3 
end if}; -- if bypass(token_semicolon) 
end EXIT_STATEMENT } 


-- RETURN_STATEMENT --> [EXPRESSION 7] 3} 
function RETURN_STATEMENT return boolean is 
begin 


ee 


if (EXPRESSION) then 
nulls 

end if} 

if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 

else 
return (FALSE )3 

end if} 

end RETURN_STATEMENT 3} 
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-- GOTO_STATEMENT --> NAME 3} 
function GOTO_STATEMENT return boolean is 
begin 
if (NAME) then 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Goto statement"); 
end if} -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end if} -- if name statement 


end GOTO_STATEMENT 3 


-- DELAY_STATEMENT --> SIMPLE_EXPRESSION ; 
function DELAY_STATEMENT return boolean is 
begin 

if (SIMPLE_EXPRESSION) then 

if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


else 
SYNTAX_ERROR( "Delay statement" )3 
end if} -- if bypass( token_semicolon) 
else 
return (FALSE )} 
end if3 -- if simple_expression statement 


end DELAY_STATEMENT $3 


-- ABORT_STATEMENT --> NAME [> NAME] 3 
function ABORT_STATEMENT return boolean is 
begin 

if (NAME) then 

while (BYPASS(TOKEN_COMMA)) loop 
if not (NAME) then 
SYNTAX_ERROR( "Abort statement" )3 
end if} 
end loop; 
if (BYPASS( TOKEN_SEMICOLON)) then 
return (TRUE )3 


-- if not name statement 


else 
SYNTAX_ERROR( "Abort statement" )3 
end if3 -- if bypass( token_semicolon) 
else 
return (FALSE )3 
end if} -- if name statement 


end ABORT_STATEMENT 3 
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-- RAISE_STATEMENT --> [NAME 7] 3 
function RAISE_STATEMENT return boolean is 
begin 

if (NAME) then 
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nulls 

end if} 

if (BYPASS(TOKEN_SEMICOLON)) then 
return (TRUE )3 

else 
return (FALSE }3 

end if; 

end RAISE_STATEMENT} 


end PARSER_3}3 
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-- TITLE: AN ADA SOFTWARE METRIC 22 
-- MODULE NAME: PACKAGE PARSER_¢ -- 
-- DATE CREATED: 23 JUL 86 o= 
-- LAST MODIFIED: 04 DEC 86 -- 
-- AUTHORS: LCDR JEFFREY L. NIEGER -- 
-- LT KARL S. FAIRBANKS, JR. -- 
-- DESCRIPTION: This package contains seven functions that o- 
-- are the lowest level productions for our top-down, -- 


-- recursive descent parser. Each function is preceded -- 
-- by the grammar productions they are implementing. -- 


FHI HEHE HEH HII HII HEF HEHEHE IEE HEHE IEEE HEE IE IE HE EE HIE HEHE HEE HEHEHE HE IE HEE HE HE HEHE IEE IEICE HE HEH KF HHH Oo Om 


with 3YPASS_FUNCTION, 3YPASS_SUPPORT_FUNCTIONS, GLOBAL_PARSER, GLOBAL; 
use BYPASS_FUNCTION», 3YPASS_SUPPORT_FUNCTIONS, GLOBAL_PARSER, GLOBAL} 


package PARSER_4G is 
function MULTIPLYING_OPERATOR return booleans 
function BINARY_ADDING_OPERATOR return boolean; 
function RELATIONAL_OPERATOR return boolean; 
function ENUMERATION_TYPE_CEFINITION return boolean; 
function ENUMERATION_LITERAL return boolean; 
function FORMAL_PARAMETER return doolean:s 
function SELECTOR return boolean; 

end PARSER_¢}3 


package body PARSER_4 is 


-- MULTIPLYING_OPERATOR --> x 


-o -=-> v6 

—_ --> mod 

== --> rem 
function MULTIPLYING_OPERATOR return boolean is 
begin 


if (BYPASS( TOKEN_ASTERISK)) then 
return (TRUE }3 

elsif (BYPASS( TOKEN_SLASH)) then 
return (TRUE }3 

elsif (BYPASS{TOKEN_MOD)) then 
return (TRUE); 

elsif (BYPASS( TOKEN_REM)) then 
return (TRUE }3 

else 
return (FALSE )3 

end ifs 

end MULTIPLYING_OPERATOR}$ 


-- BINARY_ADDING_OPERATOR --> + 
= —— = 
a ==> & 
function BINARY_ADDING_OPERATOR return boolean is 
begin 
if (BYPASS(TOKEN_PLUS)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_MINUS)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_AMPERSAND)) then 
return (TRUE )3 
else 


158 


return (FALSE )3 
end ifs 
end BINARY_ADDING_OPERATORs 


-- RELATIONAL_OPERATOR --> = 
iow --> f= 
= --> < 
oe --> <= 
-- --> > 
ees a = 
function RELATIONAL_OPERATOR return boolean is 
begin 
if (BYPASS( TOKEN_EQUALS)) then 
return (TRUE J3 
elsif (BYPASS( TOKEN_NOT_EQUALS)) then 
return (TRUE );} 
elsif (BYPASS( TOKEN_LESS_THAN)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_LESS_THAN_EQUALS)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_GREATER_THAN)) then 
return (TRUE); 
elsif (BYPASS( TOKEN_GREATER_THAN_EQUALS)) then 
return (TRUE )3 
else 
return (FALSE); 
end if; 
end RELATIONAL_OPERATOR; 


-- ENUMERATION_TYPE_DEFINITION --> (ENUMERATION_LITERAL 
-- {, ENUMERATION_LITERAL ]*) 
function ENUMERATION_TYPE_DEFINITION return boolean is 
begin 
if (BYPASS( TOKEN_LEFT_PAREN)) then 
if (ENUMERATION_LITERAL) then 
while (BYPASS€TOKEN_COMMA)) loop 
if not (ENUMERATION_LITERAL) then 
SYNTAX_ERROR( "Enumeration type definition"); 
end if; -- if not enumeration_literal 
end loops 
if (BYPASS( TOKEN_RIGHT_PAREN)) then 
return (TRUE )s 


else 
SYNTAX_ERROR("Enumeration type definition") 5 
end if; -- if bypass( toKen_right_paren) 
else 
SYNTAX_ERROR( "Enumeration type definition") 5 
end ifs -- if enumeration_literal statement 
else 
return (FALSE); 
end if} -- if bypass( token_left_paren) 


end ENUMERATION_TYPE_DEFINITION$ 


-- ENUMERATION_LITERAL --> identifier 
== --> character_literal 
function ENUMERATION_LITERAL return boolean is 
begin 
if (BYPASS( TOKEN_IDENTIFIER)) then 
return (TRUE )3 
elsif (BYPASS( TOKEN_CHARACTER_LITERAL)) then 
return (TRUE )3 
else 
return (FALSE); 


iS) 


end if} 
end ENUMERATION_LITERAL3 


-- FORMAL_PARAMETER --> identifier => 
function FORMAL_PARAMETER return boolean is 
begin 
LOOK_AHEAD_TOKEN := TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX + 1)3 
if (ADJUST_LEXEME( LOOK_AHEAD_TOKEN.LEXEME , 
LOOK_AHEAD_TOKEN.LEXEME_SIZE - 1) = “=>") then 
if (BYPASS( TOKEN_IDENTIFIER)) then 
if (BYPASS( TOKEN_ARROW)) then 
return (TRUE )3 
else 
SYNTAX_ERROR("Formal parameter" )}3 
end if} -- if bypass( token_arrow ) 
else 
SYNTAX_ERROR( "Formal parameter" )3 
end if3 -- if bypass( token_identifier ) 
else 
return (FALSE )3 
end if}; 
end FORMAL_PARAMETER}3 


-- SELECTOR --> identifier 
ae --> character_literal 
-- --> string_literal 
-- --> all 
function SELECTOR return boolean is 
begin 
if (BYPASS(TOKEN_IDENTIFIER)) then 
return (TRUE )3 
elsif (BYPASS! TOKEN_CHARACTER_LITERAL)) then 
return (TRUE )3 
elsif (BYPASS(TOKEN_STRING_LITERAL)) then 
return (TRUE )3 
elsif (BYPASS(TOKEN_ALL)) then 
return (TRUE )3 
else 
return (FALSE )3 
end if} 
end SELECTOR; 


end PARSER_43 
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-- MODULE NAME: PACKAGE SCANNER a 
-- DATE CREATED: 06 JUN 86 ae 
-- LAST MODIFIED: 04 NOV 86 Se 


-- AUTHORS: LCDR JEFFREY L. NIEDER a 
oa LT KARL S. FAIRBANKS, JR. =< 


-- DESCRIPTION: This package reads each character from the -- 
-- input buffer, determines its token class and calls -- 
-- the appropriate procedure. -- 


EHH HE IEICE IE IEE FE IE IE IEE FE FE HE IE IEE HE IE IESE IESE HE IESE HE FE HE IEE FE IE SHE SE IE FE IE IE IEE FE IE IESE HE HE IE EE EH EE EH IEE HE 


with LOW_LEVEL_SCANNER, NUMERIC, GET_NEXT_CHARACTER, SLOBAL; 
use LOW_LEVEL_SCANNER, NUMERIC, GET_LNEXT_CHARACTER, SLOBAL3 


package SCANNER is 
procedure GET_NEXT_TOKEN({ TOKEN_RECORD : in out TOKEN_RECORD_TYPE )}3 
end SCANNER; 
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package body SCANNER is 


procedure GET_NEXT_TOKEN(TOKEN_RECORD : in out TOKEN_RECORD_TYPE) is 
Segin 
LEXEME _LENGTH := 13 
for I in 1..LINESIZE loop 
TOKEN_RECORD.LEXEME(I) := ' ‘5 
end loop: 


GETNEXTCHARACTER(NEXT_CHARACTER, LOOKAHEAD_ONE_CHARACTER )3 


if ((NEXT_CHARACTER in UPPER_CASE_LETTER) or 
(NEXT_CHARACTER in LOWER_CASE_LETTER)) then 
TOKEN_RECORD.TOKEN_TYPE := IDENTIFIER} 
GET_IDENTIFIER( TOKEN_RECORD ) 3 


elsif ((NEXT_CHARACTER = ' ') or 
(character 'pos(NEXT_CHARACTER) in FORMATORS)) then 
TOKEN_RECORD.TOKEN_TYPE := SEPARATOR} 
FLUSH_SEPARATORS( TOKEN_RECORD )3 


elsif (NEXT_CHARACTER in DIGITS_TYPE) then 
TOKEN_RECORD.TOKEN_TYPE := NUMERIC_LIT} 
GET_NUMERIC_LIT( TOKEN_RECORD )3 


elsif ((NEXT_CHARACTER = ‘-') and (LOOKAHEAD_ONE_CHARACTER = ‘-')) then 
TOKEN_RECORD.TOKEN_TYPE := COMMENT} 
FLUSH_COMMENT ( TOKEN_RECORD )3 


elsif (NEXT_CHARACTER = ‘'') then 
TOKEN_RECORD.TOKEN_TYPE := CHARACTER_LIT} 
GET_CHARACTER_LIT( TOKEN_RECORD )3 


elsif ((NEXT_CHARACTER = ‘[‘') or (NEXT_CHARACTER = ‘ ') or 
(character 'pos(NEXT_CHARACTER) in DELIMITER1) or 
(character 'pos(NEXT_CHARACTER) in DELIMITER2)) then 
TOKEN_RECORD.TOKEN_TYPE := DELIMITER} 
GET_DELIMITER( TOKEN_RECORD )3 


elsif (NEXT_CHARACTER = '"') then 


TOKEN_RECORD.TOKEN_TYPE := STRING_LIT} 
GET_STRING_LIT( TOKEN_RECORD )3 
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elsif (NEXT_CHARACTER = '$') then 
TOKEN_RECORD.TOKEN_TYPE := SEPARATORS} --input was a blank line 
TOKEN_RECORD.LEXEME( CURRENT_BUFFER_INDEX) := '$'} 
NEXT_BUFFER_INDEX := REFILL_BUFFER_INDEX;} 


elsif (character'pos(NEXT_CHARACTER) = 0) then --first character is null 
TOKEN_RECORD.TOKEN_TYPE := SEPARATOR; 
NEXT_BUFFER_INDEX := REFILL_BUFFER_INDEX} --force buffer to refill 
else 
-- first character read is not one of the legal characters 
TOKEN_RECORD.TOKEN_TYPE := ILLEGALS 
ERROR_MESSAGE( TOKEN_RECORD. TOKEN_TYPE }3 
end if} 


token value is an integer which corresponds to the token type's 
position in the token List 
TOKEN_RECORD. TOKEN_VALUE := TOKEN'pos( TOKEN_RECORD.TOKEN_TYPE }}3 
TOKEN_RECORD.LEXEME_SICE := LEXEME_LENGTHs 


end GET_NEXT_TOKEN} 


end SCANNERS} 
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